Курсовая работа: Массивы в языке Паскаль

uses crt;

var

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

i,j: integer;

n,m: integer;

begin

clrscr;

write('введите кол-во строк ');

readln(n);

write('введите кол-во столбцов ');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('a[',i,',',j,']= ');

readln(a[i,j]);

end;

for j:=1 to m do

begin

if a[i,j]<0 then

begin

writeln ('номер столбца, в котором все элементы отрицательные= ', J);

readln;

end

else

begin

writeln ('в столбце ',J,' нет отрицательных или не

все отрицательные элементы ');

end;