Информатика

Матфий

8 августа, 00:30

Помогите с кодом по паскалю.→Нужно чтобы ответ который показывается было написано первый столбец столько положительных чисел а если нет положительных чисел в столбце то писало нет положительных чисел в этом столбце←Столбцы пронумеровать

Изначально задание было таково что нужно чтобы находило сколько положительных чисел в каждом столбце

Даю 30

uses crt;

var a:array[1 ... 100,1 ... 100] of integer;

b:array[1 ... 100] of integer;

i, j, m, n:integer;

begin

ClrScr;

Randomize;

Write ('n=');

Readln (n);

Write ('m=');

Readln (m);

for i:=1 to n do

begin

for j:=1 to m do

begin

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

Write (a[i, j]:4);

end;

Writeln;

end;

Writeln;

b[j]:=0;

for i:=1 to n do

for j:=1 to m do

if a[i, j]>0 then

b[j]:=b[j]+1;

for i:=1 to m do

Write (b[i]:4);

Readln;

end.