Предмет: Информатика,
автор: 7ILM
Заполните матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10;10] вывести её на экран. Найти сумму всех четных элементов
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: История,
автор: vtvaovi2067
Предмет: Математика,
автор: cornev2002kirill
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Yana12345