Тема закрыта для обсуждения!

Maxim Kuvardin, Окей давай в личку

Maxim Kuvardin, это с блок-схемой?

Maxim Kuvardin, Это по 25гр

Блин зачем вообще это строителю???

KoT, Я могу найти и другую программу. Просто у меня сейчас эта только стоит

KoT, Куда?

Третий Рейх, ну это для тебя.

Это до конца?
Составить программу для нахождения минимального и максимального элементов массива, а также индексов этих элементов. Ранжировать (упорядочить) одномерный массив п заданному признаку.
(2,56; 9,03; -2,0876; -187,5; 8,088; 12,6; - 0,76; 34,86; 0,2) по возрастанию

Код:

var a:array[1..9] of real; i,j,max,min:integer;
begin max:=1; min:=1;
for i:=1 to 9 do begin
readln(a[i]);
if a[max]<a[i] then max:=i;
if a[min]>a[i] then min:=i;
end;

writeln(min:5,a[min]:10,max:5,a[max]:10);

for i:=1 to 9 do begin
for j:=1 to 9 do begin
if a[i]<a[j] then begin
max:=a[i]; a[i]:=a[j]; a[j]:=max;
end;
end;
end;

for i:=1 to 9 do begin
writeln(a[i]);
end;
end.

LiMpo, В гр это сколько?