Определить количество положительных элементов в каждой строке двумерного массива P (4,5)

Var

a: array[1 ... 50,1 ... 50] of integer;

i, j, n, m: integer;

Begin

Write ('Andrei Balashov') ;

Readln (Andrei Balashov) ;

Write (‘how many lines?’) ;

Readln (m) ;

Write (‘ how many columns?’) ;

Readln (n) ;

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i, j]:=int (rnd*46) - 20;

write (a[i, j],’ ‘) ;

end;

writeln;

end;

End.

Введите на в окне которое вам откроется данные массива и программа самостоятельно его посчитает.

Вопросы я написал на английском внутри программы.

Var

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

i, j, k:integer;

begin

for i: = 1 to 4 do

begin

for j:=1 to 5 do

begin

p[i, j]:=Random (-100,100) ;

write (p[i, j]:5) ;

end;

writeln;

end;

for i: = 1 to 4 do

begin

k:=0;

for j:=1 to 5 do

if p[i, j]>0 then k:=k+1;

writeln ('Количество положительных элементов в строке ', i,' равно: ', k) ;

end

end.