Напишите программу которая выводит все четные элементы массива из массива заданного n. числом

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   a.where(t-> t.iseven).println end. пример n= 13 6 -18 -6 37 47 -32 31 6 16 -41 32 28 -13 6 -18 -6 -32 6 16 32 28

ответ:

program array8x5;

var

  a: array [1..8, 1..5] of integer;

  i, j, imin, imax, jmin, jmax, s, smax: integer;

begin

  randomize;

  for i : = 1 to 8 do begin

    writeln;

    for j : = 1 to 5 do begin

      a [i, j] : = random (21) - 10;

      write (a [i, j] : 3, ' ');

    end;

  end;

  writeln;

  for i : = 1 to 8 do begin

    writeln;

    for j : = 1 to 5 do begin

      a [i, j] : = a [i, j] * 3;

      write (a [i, j] : 3, ' ');

    end;

  end;

  imin : = 1;

  imax : = 1;

  jmin : = 1;

  jmax : = 1;

  for i : = 1 to 8 do begin

    for j : = 1 to 5 do begin

      if a [i, j] > a [imax, jmax] then begin

        imax : = i;

        jmax : = j;

      end;

      if a [i, j] < a [imin, jmin] then begin

        imin : = i;

        jmin : = j;

      end;

    end;

  end;

  writeln; writeln;

  writeln ('минимальный элемент   а[', imin, ',', jmin, '] = ', a [imin, jmin]);

  writeln ('максимальный элемент а[', imax, ',', jmax, '] = ', a [imax, jmax]);

  imax : = 1;

  smax : = - maxint;

  for i : = 1 to 8 do begin

    s : = 0;

    for j : = 1 to 5 do begin

      s : = s + a [i, j];

    end;

    if s > smax then begin

      smax : = s;

      imax : = i;

    end;

  end;

  write ('строка ', imax, ': ');

  for j : = 1 to 5 do

    write (a [imax, j], ' ');

  writeln;

  readln;

end.