Заполните матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10;10] вывести её на экран. Найти сумму всех четных элементов

1

Ответы и объяснения

Лучший Ответ!
2012-03-18T14:57:34+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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

s,i,k:integer;

Begin

  randomize;

  for i:= 1 to 8 do begin

     for k:= 1 to 5 do begin

        a[i,k]:= random(20)-10;

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

        if a[i,k] mod 2 = 0 then s:=s+a[i,k];

     end;

     writeln;

  end;

  writeln('s=',s);

End.