Поменять местами минимальный и первый элементы массива.
В turbo pascal

1

Ответы и объяснения

2013-05-13T19:04:21+04:00

uses crt; 
var 
a :array[1..10] of real; 
max,min,buf:real; 
i,zm,zi:integer; 
begin 
clrascr; 
zi:=0zm:=0;; 
randomize; 
writeln('Ishodnii massiv:'); 
for i:=1 to 10 do begin a:=random(100)-100; 
write(a:8:3); 
end; 
max:a[1];min:=a[1]; 
for i:=1 to 10 do begin 
if max<a<i>>;zm:=i; 
if min<a<i>>;zi:=i; 
end; 
buf:=a[zm]; 
a[zm]:=a[zi]; 
a[zi]:=buf; 
writeln('Rezult massiv:'); 
for i:=1 to 10 do begin write(a:8:3);end; 
readln; 
end.