Поменять местами максимальный и минимальный элементы массива.
Поменять местами максимальный и минимальный элементы массива.
Гость
Ответ(ы) на вопрос:
Гостьvar a: array [1..100] of integer;
min,a,p: integer;
begin
read(n);
for i:= 1 to n do
read (a[i]);
min:a[1]; p:=1;
for i:=2 to n do
if a[i]< min then
begin
min:=a[i];
p:=i;
end;
writeln('min,=; ,min);
writeln (' на позиции;p);
end.
Не нашли ответ?
Похожие вопросы