Программа которая формирует массив из 15 случайных целых чисел от -20 до 20 и чётные исла делит на два, а нечётные-умножает на три

1

Ответы и объяснения

2011-12-07T21:09:24+04:00

var

mas : array[1..15] of integer;

i:integer;

 

begin

 

for i:=1 to 15 do

begin

 mas[i] := random(40)-20;

 if (mas[i] mod 2 = 1) then mas[i]:=mas[i]/2;

 if (mas[i] mod 2 = 0) then mas[i]:=mas[i]*3;

end;

 

end;