Дан массив целых чисел из 12 элементов. Поменять местами первый отрицательный с первым положительным.

Question

Информатика

Олюша

22 августа, 16:56

Дан массив целых чисел из 12 элементов. Поменять местами первый отрицательный с первым положительным.

+2

Ответы (1)

Знаете ответ на вопрос?

Христеня · Answer 1

Var a: array[1 ... 12] of integer;

i, z: integer;

f:boolean;

begin

for i:=1 to n do

readln (a[i]) ;

z:=a[1];

f:=false;

for i:=2 to 12 do

if not (f) and a[i]*a[1] then begin

a[1]:=a[i];

a[i]:=z;

f:=true;

end;

for i:=1 to 12 do

write (a[i], ' ') ;

end.