Задать вопрос Регистрация
Помочь другим

  •  составьте программу, которая заполняет массив а[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. 

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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