yakostik
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program z11;
uses crt;
const
n=10;
var
i,j:integer;
im,om:array[1..n,1..n] of integer;
begin
clrscr;
writeln('Input');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
im[i,j]:=random(90);
write(im[i,j]:2,'|');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
begin
if im[i,j]>im[i,i] then
om[i,j]:=1
else
om[i,j]:=0
end;
writeln;
writeln('Output');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(om[i,j]:2,'|');
end;
writeln;
end;
end. |
