Question

помогите пожалуйста решить задачу по информатике. Задан массив случайным образом.Преобразовать массив:отрицательные элементы, кратные 7, заменить модулем, нулевые элементы заменить числом N(размер массива), а остальные отрицательные числа умножить на -2

Answer 1

var

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

i,n:integer;

begin

readln(n);

writeln('исходный массив');

for i:=1 to n do

begin

a[i]:=random(50)-25;

write(a[i]:4);

end;

writeln;

writeln('измененный массив');

for i:=1 to n do

begin

if a[i]=0 then a[i]:=n;

if a[i]<0 then

if (a[i] mod 7=0) then a[i]:=abs(a[i])

else a[i]:=a[i]*(-2);

write(a[i]:4);

end;

end.