[Savant]

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

[Doktor]

Savant
Да... )) Ты меня раскусил...)) Ну не программер я... хех... попробую моей ненаглядной преподше че-нить фтереть...

жаль что 3-ей нету...((( все равно бюольшое спасибо!
опть ты меня спас!