Виталий Михайлович

Всегда рад помочь с инфоматикой, физикой, математикой.

Образование

Время консультирования

Не указано

Рассказать друзьям

Понравился эксперт? Порекомендуй друзьям в соцсетях.

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.06.15
ответ эксперта
Виталий Михайлович
Рейтинг: 0
0 отзывов
0% положительных
1 ответов клиентам
0 лучших
от 0 до 0 руб.
стоимость консультации
30 минут
консультация длится
1 год 5 месяцев на сайте
Заходил 1 год назад