(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на Паскале на ошибки не проверял)
program dl9_aridrettnir;
var a:array [1..10,1..5] of inteher;
sum:array [1..10] of integer;
i,q,j:integer;
begin
writeln ('Vvedit masiv ot 0 do 29');
for i:=1 to 10 do
begin
for q:=1 to 5 do begin
readln (a[i,q]);
end; end;
for i:=1 to 10 do
begin sum[i]:=0;
for q:=1 to 5 do begin
for j:=1 to 10 do begin
sum[i]:=a[q,j]+sum[i];
end; end;end;
readln
end.
Паскаль
uses crt;
var
max, i , n,k2,k : integer;
m: array [1..100] of integer;
begin
randomize;
write('vvedi razmer massiva = ');
read (n);
k:= 0;
k2:=0;
for i:=1 to n do
m[i]:= random (100)+20;
for i:=1 to n do
if m[i] mod 2 =0 then k:= k+1 else k2:= k2+1;
writeln;
for i:= 1 to n do
write (m[i],' ');
writeln;
writeln ('chetnii = ',k);
writeln ('necetnii = ',k2);
readkey;
end.