Вывести на экран все нечетные числа из последовательности чисел, вводимых с клавиатуры))
Паскаль)))
// PascalABC.NET 3.0, сборка 1088
const
n=10; // количество вводимых чмсел
var
a:array[1..n] of integer;
i,k,t:integer;
begin
Writeln(Введите через пробел ,n, целых чисел);
k:=0;
for i:=1 to n do begin
Read(t);
if Odd(t) then begin Inc(k); a[k]:=t end
end;
if k>0 then begin
Write(Нечетные числа: );
for i:=1 to k do Write(a[i], );
Writeln
end
else Writeln(Все введенные числа - четные)
end.
Тестовое решение:
Введите через пробел 10 целых чисел
24 137 -53 46 0 -18 35 2 352 1111
Нечетные числа: 137 -53 35 1111
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
