Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с нечетными значениями
lushkina73
3
14.03.2019 19:40
4
Другие вопросы по теме Информатика
Kamaria086
18.05.2019 23:40
McBlanse
18.05.2019 23:40
Kseniaghl
22.07.2019 03:40
буря4
22.07.2019 03:50
cfr1
22.07.2019 03:50
анна2255
22.07.2019 03:50
spilevdenis1
22.07.2019 03:50
regina290402
22.07.2019 03:50
Популярные вопросы
- 1.Когда началось переселение уйгуров и дунган? А) 1881 -1884 гг...
3 - Дні на картині 1 обставини які змінили світ2⃣ проблеми в освітній...
2 - 8. Write the words and match them to the pictures. Hannu слова...
2 - Очень нужно Русский язык >...
2 - ДОЛГ-ЭТО…ДОВЕРИЕ-ЭТО…ДРУЖБА-ЭТО…ДИСЦИПЛИНА-ЭТО… ...
2 - Только попробуйте не правильный ответ написать буду банить...
1 - Составить письменную характеристику по теме: Грей- капитан...
3 - В сосуде объемом 300 см находится 3,6 кг идеального газа при давлении...
3 - Руски язык 5 клас упр 419 что ток быстро...
3 - «Нұрсұлтан қаласына саяхат» деген тақырыпта еліміздің астанасында...
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.