Напишите программу, которая в последовательности целых чисел определяет количество...

Question

Напишите программу, которая в последовательности целых чисел определяет количество нечетных положительных чисел. Программа получает на вход целые положительные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество введенных чисел не превышает 1000. Все числа не превосходят 30 000.
И блок схему пожалуйста

Answer 1

Ради каких то 5 баллов , даже редактор не открою

Comments

чсв повышаю

Answer 2

uses crt;

Var a,k,k1:integer;

Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a<>0) and (k1<1000) do<br>Begin
if (a<0) and (a mod 2=0) and (abs(a)<=30000) then k:=k+1;<br>k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end.