Паскаль Составьте программу, которая заполняет массив 10-ю ...
Паскаль Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
Есть ответ
18.12.2022
398
Ответ
var
a: array [1..10] of integer; //Инициализируем массив из 10 целых чисел
i: integer;
begin
for i:= 1 to 10 do
begin
a[i]:= random(19) + 1; //Заполняем массив случайными числами от 1 до 20
if a[i] mod 2 = 1 then write(a[i], ' '); {Если очередной элемент массива нечетный, то он выводится}
end;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022