Решить зачетную работу, 8 билетов сделал, а 9 не как не могу понять. билет №9 элементы двухмерного массива "а" размером 9*9 с следующего фрагмента программы: for n=1 to 9 for m1 to 9 a (n,m)=n+m+1 сколько элементов массива "a" будут принимать четыре значения: 1) 36 2) 40 3) 41 4) 45 , 12 мая зачет будет, надо подготовится. буду . нужно составить полную программу, чтобы решить . а как именно я не догоняю.
a:array [1..9,1..9] of integer;
begin
s:=0;
for n:=1 to 9 do begin
for m:=1 to 9 do begin
a[n,m]:=n+m+1;
write(a[n,m],' ');
if (a[n,m] mod 2 =0) then inc(s);
end;
writeln;
end;
write('Четных чисел: ', s);
end.
ОТВЕТ: 40