Задание:
Помогите пожалуйста решить задачу по информатике. Задан массив случайным образом. Преобразовать массив: отрицательные элементы, кратные 7, заменитьмодулем, нулевые элементы заменить числом N (размер массива), а остальные отрицательные числа умножить на -2
Решение:
vara: array[1… 100] of integer; i,n: integer; beginreadln (n); writeln ('исходный массив'); for i: =1 to n dobegina[i]: =random (50) -25; write (a[i]: 4); end; writeln; writeln ('измененный массив'); for i: =1 to n dobeginif a[i]=0 then a[i]: =n; if a[i]<0 thenif (a[i] mod 7=0) then a[i]: =abs (a[i]) else a[i]: =a[i]*(-2); write (a[i]: 4); end; end.
Знаете другой ответ?