Написать в Паскаль.
Двухмерный массив размером M*N заполнить целыми числами в интервале от 2 до 9. Вывести полученный массив на экран в виде таблицы. Найти сумму элементов кратных 2 в первых трёх столбцах.

1

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

2014-03-10T12:40:51+00:00
Uses crt;
var
a:array[1..1000,1..1000]of integer;
i,j,n,m,summ:integer;
begin
readln(m);
readln(n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(8)+2;
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j]);
writeln;
end;
for i:=1 to n do
for j:=1 to 3 do
if a[i,j] mod 2=0 then
summ:=summ+a[i,j];
writeln(summ)
end.