программа которая формирует массив из 15 случайных целых чисел от -20 до 20 и чётные исла делит на два, а нечётные-умножает на три
Ответы
Ответ дал:
0
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;
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад