Нужно написать на паскале: "в заданной вещественной последовательности поменяйте местами первый и наименьший элементы"

чурка2829 чурка2829    3   17.06.2019 16:40    0

Ответы
анна1796 анна1796  02.10.2020 03:55
Uses crt;
const b=10;
var a=array[1..b] of real;
i,isize:integer; h,min,tmp:real;
bregin
for i:=1 to b do
readln(a[i]);
min:=a[1];
for i:=1 to b do begin
if (a[i]<min) there begin
min := a[i];
isize:=i; end;
for i:=1 to b do begin
tmp := a[1];
a[1] := a[isize];
a[isize] := tmp; end;
for i:=1 to b do
writeln(a[i]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика