Заполните массив 11-ю случайными числами промежутка [-20;10]. Выведите его в строке. Все элементы с нечетными значениями уменьшите в 3 раза, а остальные - увеличьте на 5. Выведите новый массив

Question

Заполните массив 11-ю случайными числами промежутка [-20;10]. Выведите его в строке. Все элементы с нечетными значениями уменьшите в 3 раза, а остальные - увеличьте на 5. Выведите новый массив

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array[1..11]of integer; i:integer; begin randomize; for i:=1 to 11 do a[i]:=random(31)-20; for i:=1 to 11 do write(a[i],' '); writeln; for i:=1 to 11 do if a[i] mod 2<>0 then a[i]:=a[i] div 3 else a[i]:=a[i]*5; for i:=1 to 11 do write(a[i],' '); end.