Дан двумерный массив в 5 строк и 4 столбца, сформулированный случайным образом. Найти сумму положительных элементов 1 строки и количество отрицательных элементов 3 столбца

Var a:array[1 ... 5,1 ... 4] of integer;

i, j, s1, k3:integer;

begin

s1:=0;

k3:=0;

for i:=1 to 5 do

for j:=1 to 4 do

a[i, j]:=random (-50,50) ;

for j:=1 to 4 do

if a[1, j]>0 then s1+=a[1, j];

for i:=1 to 5 do

if a[i, 3]<0 then k3+=1;

write (s1,' ', k3) ;

end.