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

2014-03-27T11:30:15+00:00
Program tet;
var s:integer;
i,j:byte;
a:array[1..10,1..12] of integer;
begin{заполняем массив случайными трёхзначными числами.}
for i:=1 to 10  dofor j:=1 to 12 doa[i,j]:=100*random(9)+10*random(9)+random(9);{Выводим массив}
for i:=1 to 10  do begin writeln;for j:=1 to 12 do write(a[i,j]:5); end;
{Начинаем со второй строки}
i:=2;
while i<=10 do begin
for j:=1 to 12 do{проверяем на чётность и складываем}if a[i,j] mod 2=0 then s:=s+a[i,j]; i:=i+2;end;
writeln('s=',s);
end.