Информатика

Танюха

11 января, 08:52

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

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

Даю 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.