• составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит индексы чётных элементов
    Пожалуйста помогите , срочно .
    Даю 34 балла

Ответы 1

  • var i : integer;

    a : string;

    b :array [1..16] of integer;

    begin

    a :='';

    Randomize;

    for i:= 1 to 16 do

    begin

    b[i]:= Random(-20,20);

    if b[i] mod 2 = 0 then a:=a+ i + ' ';

    end;  

    Writeln(a);

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years