Учеба и наука

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


Виталий Михайлович
93-й в Учебе и науке
0 отзывов
uses crt;
const n=20;
type mass=array [1..n] of integer;
var b:mass;
imaxelem:integer;

procedure InMass(var b:mass);{заполнение случайными числами}
var i:integer;
begin
writeln('Nachalnaja matriza');
writeln;
randomize;
for i:=1 to n do
begin
b[i]:=random(75);
write(b[i]:3);
end;
end;

procedure Sort(var b:mass);{меняем местами элементы}
var i,elem,maxelem:integer;
begin
maxelem:=-5;
for i:=1 to n do
begin
if b[i]>maxelem then
begin
maxelem:=b[i];
imaxelem:=i;
end;
end;
elem:=b[n];
b[n]:=b[imaxelem];
b[imaxelem]:=elem;
end;

procedure OutMass(var b:mass);{вывод}
var i:integer;
begin
writeln;
writeln('Otsort. matriza');
writeln;
for i:=1 to n do
write(b[i]:3);
end;

Begin
clrscr;
InMass(b);
Sort(b);
OutMass(b);
readln;
end.
июнь 23, 2015 г.

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