• составьте программу, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых являются четными и кратными 3

Ответы 1

  • var

    a:array [1..20] of integer;

    i:integer;

    begin

    randomize;

    for i:=1 to 20 do begin

    a[i]:=random(30)+1;

    write (a[i],' ');

    end;

    writeln;

    for i:=1 to 20 do

    if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');

    readln;

    end. 

    • Автор:

      harry
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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