Виталий Михайлович (vitmich)
Всегда рад помочь с инфоматикой, физикой, математикой.
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.
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.06.15
ответ эксперта
У эксперта Виталий Михайлович (vitmich) пока что нет блогов