Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с нечётными значениями
145
343
Ответы на вопрос:
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.
Популярно: Информатика
-
Марго21564631.03.2021 22:53
-
vitakotov00915.05.2020 17:31
-
aynaaaaa27.02.2023 17:01
-
ppetrovaa03.06.2020 16:59
-
MILAVASSILYEVA28.09.2020 16:46
-
PolinaZaichko040312.12.2022 19:50
-
masyanyapar10.08.2022 19:44
-
дильназ14912.02.2020 08:43
-
vikahamka71102.06.2023 15:35
-
khokhr14.07.2020 12:31