Вывести на экран все нечетные числа из последовательности чисел, вводимых с клавиатуры)) Паскаль)))

Вывести на экран все нечетные числа из последовательности чисел, вводимых с клавиатуры)) Паскаль)))
Гость
Ответ(ы) на вопрос:
Гость
// 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
Гость
//Pascal ABC.NET Версия 2.2 Сборка 790 Const  n=5; var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer; begin; for i:=1 to 5 do  begin;   readln(ar[i]);   if odd(ar[i]) then      begin;      inc(k);      ar2[k]:=ar[i];     end;   end; if k=0 then  begin;  writeln('No odd numbers');  exit;  end; writeln('Result:'); for i:=1 to k do write(ar2[i]:4); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы