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.