Cоставьте программу которая формирует массив из пятнадцати случайных чисел от - 20 до 20 и четные числа делит на два, а нечетные - умножает на 3. (9 класс).

Question

Информатика

Диомид

1 ноября, 16:13

Cоставьте программу которая формирует массив из пятнадцати случайных чисел от - 20 до 20 и четные числа делит на два, а нечетные - умножает на 3. (9 класс).

+5

Ответы (1)

Знаете ответ?

Николич · Answer 1

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.