Предмет: Информатика,
автор: kadykovika2
составьте программу ,которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с нечетными значениями
Ответы
Автор ответа:
0
Var m : array[1..10] of Integer;
i : Byte;
Begin
For i:=1 to 10 do
Begin
m[i]:=Random(20)+1;
If Odd(m[i]) then Writeln(m[i]);
end;
end.
i : Byte;
Begin
For i:=1 to 10 do
Begin
m[i]:=Random(20)+1;
If Odd(m[i]) then Writeln(m[i]);
end;
end.
Интересные вопросы
Предмет: Математика,
автор: irinaurijcuk39
Предмет: Қазақ тiлi,
автор: misstany99
Предмет: Українська мова,
автор: lol5866615
Предмет: Литература,
автор: marinavolkova21
Предмет: Литература,
автор: a2rat