Question

Найти первый отрицательный элемент массива, модуль которого находится в заданных пределах, заменить его индексом и переставить на место шестого элемента. Pascal

Answer 1

program raf105;

const

 n = 7;

var

 a:array[1..n] of integer;

 i,x,y: integer;

 z: boolean;

begin

write('Введите 2 числа. Минимальное и максимальное: ');

readln(x,y);

writeln('Заполните массив из ',n,' элементов');

for i:=1 to n do

 readln(a[i]);

write('Изменённый массив: ');

for i:=1 to n do

begin

 if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)

   then begin

     a[6]:= a[i];

     a[i]:= i;

     z:= True;

   end;

 write(a[i],' ');

end;

end.

PascalABC 3.4.2