Массив C размером 15 заполняется случайными числами из интервала (0,100). Вывести на экран нечётные элементы массива.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var i :integer;
C: array[1..15] of integer;
begin
write('Массив С: ');
for i := 1 to 15 do
begin
C[i] := random(0, 100);
write(C[i], ' ');
end;
writeln();
write('Нечётные элементы массива: ');
for i := 1 to 15 do
begin
if C[i] mod 2 <> 0 then write(C[i], ' ');
end;
end.