Cоставьте программу которая формирует массив из пятнадцати случайных чисел от -20 ?

Cоставьте программу которая формирует массив из пятнадцати случайных чисел от -20 ??о 20 и четные числа делит на два, а нечетные - умножает на 3. ( 9 класс).
Гость
Ответ(ы) на вопрос:
Гость
var i : integer; a: array [1..15] of integer; begin//заполним массив for i:=1 to 15 do begin a[i]:=random(20)-10; if  (a[i] mod 2)=0 then  a[i]:=round(a[i]/2)  else   a[i]:=a[i]*3  end;  //распечатаем результат for i:=1 to 15 do writeln (a[i]);   end.

Не нашли ответ?
Ответить на вопрос
Похожие вопросы