Полина9512
Опубликовано 7 лет назад по предмету Информатика от Полина9512


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

  1. Ответ
    Ответ дан Anskair

    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;

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц