Pascal ABC.

Двухмерный массив.

1) вычислить количество чётных элементов

2) сумму элементов столбца по его введённому номеру

Program sdf; var a:array[1 ... 10000,1 ... 10000] of integer; i, j, k, h, m, n:integer; s:real; beginwriteln ('vvedite kolichestvo strok') ; readln (n) ; writeln ('vvedite kolichestvo stolbtsov') ; readln (m) ; writeln ('vvedite elementy matricy') ; for i:=1 to n dofor j:=1 to m doreadln (a[i, j]) ; k:=0; for i:=1 to n dofor j:=1 to m do if a[i, j] mod 2 = 0then k:=k+1; Writeln ('vvedite nomer stolbtsa') ; readln (h) ; for j:=1 to m dos:=s+a[j, h]; writeln ('kolichestvo chetnyh', k) ; writeln ('symma elementov stolbtsa', s) ; end.