Предмет: Информатика,
автор: rtt3w
дан массив из 10 элементов вывести на экран так чтобы на первом месте стояло минимальное число а на последнем максимальное
Ответы
Автор ответа:
0
var a : array [1..10] of integer;
i, max,min,nmax,nmin: integer;
begin
randomize;
for i:= 1 to 10 do
begin
a[i] := random(50);
write (a[i], ' ');
end;
writeln;
max:=a[1];
min:=a[1];
for i:= 1 to 10 do
begin
if a[i]>max then begin max:=a[i];nmax:=i;end;
if a[i]<min then begin min:=a[i];nmin:=i;end;
end;
a[nmax]:=a[10];a[10]:=max;
a[nmin]:=a[1];a[1]:=min;
for i:= 1 to 10 do
begin
write (a[i], ' ');
end;
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: olgasalanova19
Предмет: Литература,
автор: SnezanaSav
Предмет: Физика,
автор: Dosavto
Предмет: Алгебра,
автор: plasx
Предмет: Математика,
автор: Алина111111121