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

for j:=1 to m do

begin

a[i,j]:=random(100);

end;

for i:=1 to n do

for j:=1 to m do

begin

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

end;

writeln ('Новый массив');

for i:=1 to n do

for j:=1 to m do

begin

if j<>k then

{Проверка условия № столбца

неравен № столбца,

который необходимоудалить}

begin

b[i,j]:=a[i,j];

{если да, то новому массиву

присваиваем проверяемый элемент }

end;

end;

for i:=1 to n do {вывод нового массива}

for j:=1 to m do

writeln ('b[',i,',',j,']=',b[i,j]);

readln;

end.

10. Дана вещественная матрица размерности n*m. Вывести номера столбцов, содержащих только отрицательные элементы.