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

Ответы 1

  • var

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

    i:integer;

    begin

    randomize;

    for i:=1 to 10 do begin

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

    write (a[i],' ');

    end;

    writeln;

    for i:=1 to 10 do

    if odd(a[i])=true then write (a[i],' ');

    readln;

    end. 

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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