№1.
Код: Выделить всё
program pr_10_2;
uses crt;
var a:array[1..10,1..10] of real;
max:array[1..10] of real; i,k:byte;
begin
clrscr;
for i:=1 to 10 do
for k:=1 to 10 do begin a[i,k]:=random(100);
If a[i,k]>max[i] then max[i]:=a[i,k];
end;
for i:=1 to 10 do
writeln (max[i]:5:0);
readln;
end.Код: Выделить всё
program sort;
uses crt;
const nn=5;
mm=5;
var m:array[1..nn,1..mm]of integer;
k:array[1..mm]of integer;
i,j,mmm:integer;
procedure MaxVSt(k:integer; var max:integer);
var i:integer;
begin
max:=m[1,k];
for i:=1 to nn do if m[i,k]>=max then max:=m[i,k];
end;
procedure MinVSt(k:integer; var min:integer);
var i:integer;
begin
min:=m[1,k];
for i:=1 to nn do if m[i,k]<=min then min:=m[i,k];
end;
begin
clrscr;
randomize;
for i:=1 to nn do
for j:=1 to mm do
begin
m[i,j]:=random(16);
end;
writeln('Massiv:');
for i:=1 to nn do
begin
writeln;
for j:=1 to mm do write(m[i,j]:2,' ');
end;
writeln;
for i:=1 to mm do
begin
MinVst(i,mmm);
writeln('#',i,' ',mmm);
end;
mmm:=m[1,1];
for i:=1 to nn do
for j:=1 to mm do if m[i,j]<=mmm then mmm:=m[i,j];
writeln('Min = ',mmm);
for i:=1 to mm do
begin
maxvst(i,mmm);
k[i]:=mmm;
write(k[i],' ');
end;
readln;
end.