Вопрос от посетителя
помогите пожалуйста решить задачу по информатике. Задан массив случайным образом.Преобразовать массив:отрицательные элементы, кратные 7, заменить модулем, нулевые элементы заменить числом N(размер массива), а остальные отрицательные числа умножить на -2
Отвечает Илюха:
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.