Паскаль
Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
More Questions From This User See All
Паскаль
Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.