Задан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом

Question

Информатика

Руфиниана

22 октября, 12:44

Задан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом

+1

Ответы (1)

Знаете ответ?

Алека · Answer 1

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]
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.