Question

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

Answer 1

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.

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

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

Answer 2

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.