Скласти схему алгоритму і програму по ньому у програмі Pascal.
В масиві В(20) поміняти місцями найбільший елемент і його останній член. - вопрос №1519850
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.
Добрый день. Меня заинтересовал ваш ответ "uses crt;
const n=20;
type mass=array [1..n] of integer;
var b:mass;
imaxelem:integer;
proced..." на вопрос http://www.liveexpert.org/topic/view/1519850-sklasti-shemu-algoritmu-programu-po-nomu-u-program-pascal-v-masiv-v-20-pom-nyati-m-scyami-najb-lshij-element-jogo-ostann-j. Можно с вами обсудить этот ответ?