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

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




, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт