Поменять местами максимальный и минимальный элементы массива.
Answers & Comments
sorokamoroka
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.
Answers & Comments
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.