Учеба и наука

• Всего ответов: 1


Карина
28-й в Учебе и науке
5.0 21 отзыв
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.
январь 8, 2014 г.

Похожие вопросы