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

Question

Информатика

Мелеха

1 июля, 22:16

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

+3

Ответы (1)

Знаете ответ на вопрос?

Петронилла · Answer 1

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 20 then a[i]:=a[i] div 3 else a[i]:=a[i]*5;

for i:=1 to 11 do write (a[i],' ') ;

end.