Developing.ru

Код: Выделить всё

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.