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

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

Задать свой вопрос
Мирослава
Язык?
Amelija Shkorubskaja
Паскаль
Егор
если я верно тебя понял
1 ответ

var a,i,k,sum:integer;

begin

read(a); //кол-во числе в последовательности

for i:=1 to a do begin

read(k);

if(kgt;=0)then sum:=sum+1; //проверка на положительное число

end;

write(sum);

end

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт