задан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом
Answers & Comments
danabel2000
Var i,temp,pol,minA,min:integer; a:array[1..5] of integer; begin minA:=a[1]; for i:=1 to 5 do begin readln(a[i]); if(a[i]<minA)then begin min:=i; minA:=a[i]; end; if(a[i]>0)and (temp=0)then begin pol:=i; temp:=1; end; end; temp:=a[min]; a[min]:=a[pol]; a[pol]:=temp; for i:=1 to 5 do write(a[i],' '); end.
Answers & Comments
a:array[1..5] of integer;
begin
minA:=a[1];
for i:=1 to 5 do begin
readln(a[i]);
if(a[i]<minA)then begin min:=i; minA:=a[i]; end;
if(a[i]>0)and (temp=0)then begin pol:=i; temp:=1; end;
end;
temp:=a[min];
a[min]:=a[pol];
a[pol]:=temp;
for i:=1 to 5 do write(a[i],' '); end.