Помогите пожалуйста решить задачу по информатике

Question

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

Answer 1

38

rekke

06 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: