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

Ответы 2

  • // PascalABC.NET 3.0, сборка 1088const  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 Сборка 790Const 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years