Дана матрица размерности N на... - вопрос №901332

Дана матрица размерности N на M. вывести номера всех столбцов матрицы, не содержащих отрицателных элементов.

Ответы

uses crt;

const n=5;m=6;  

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

i,j:integer;

f:boolean;  

begin  clrscr;  

randomize;  

for i:=1 to n do  

begin   for j:=1 to m do   begin    

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

write(m[i,j]:3);  

end;  

writeln;  

end;    

for j:=1 to m do  begin  

f:=true;  

for i:=1 to n do

if a[i,j]<0 then f:=false;  

if f then write(j,' ');  end;  

readln; end.

08.01.14

Еva

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store