Задание:
ЗАполните массив 12-ю случайными целыми числами промежутка [-15; 20]. Выведите его в стороке. Все элементы с четными значениями уменьшите в 5 раз, аостальные — увеличьте в 50. Выведите новый массив. Помогите пожалуйста.
Решение:
var a: array[1… 12]of integer; i: integer; beginfor i: =1 to 12 do a[i]: =random (36) -15; for i: =1 to 12 do write (a[i],'); writeln; for i: =1 to 12 do if a[i] mod 2=0 then a[i]: =(a[i] div 5) else a[i]: =a[i]*50; for i: =1 to 12 do write (a[i],'); end.
Знаете другой ответ?