Имя пользователя:
Пароль:
 

Название темы: И опять он, Паскаль!!!!
Показать сообщение отдельно

Аватара для Savant

Старожил


Сообщения: 300
Благодарности: 6

Профиль | Сайт | Отправить PM | Цитировать


Doktor
Опять?.. На каждую сессию заглядываешь ? . Кстати, в прошлый раз были ну очень похожие задачи. Можно было чего-нибудь и подучить в конце-концов...

1.
Код: Выделить весь код
var
  i, multi: Integer;
  a: array[1..100] of Integer;
  multi_succ: Boolean;
begin
  { Ввод данных }
...
  multi := 1;
  multi_succ := False;
  for i := 1 to 100 do
    if a[i] mod 2 = 0 then begin
      multi := multi * a[i];
      multi_succ := True;
    end;
  if multi_succ then
    WriteLn('Multiplication result: ', multi);
  else
    WriteLn('No such numbers for multiplication')
end.
2.
Код: Выделить весь код
var
  i, k, min, min_line: Integer;
  a: array[1..10, 1..10] of Integer;
begin
  { Ввод данных }
...
  min := MaxInt;
  min_line := 1;
  for i := 1 to 10 do
    for k := 1 to 10 do
      if a[i, k] < min then begin
        min := a[i, k];
        min_line := i;
      end;
  WriteLn('Line: ', min_line);
end.
3. not enough data

Отправлено: 23:25, 22-06-2005 | #2

Название темы: И опять он, Паскаль!!!!