Предмет: Информатика, автор: сложнааа888

Помогите Пожалуйста!!Буду очень Благодарна!!♥
Придумать задачу на подсчет элементов по определенному признаку введенных с клавиатуры. (В Паскале Abc)

Ответы

Автор ответа: Stepan228322
1
var a,b,i,k:integer
begin
 readln(a);
 for i:=1 to a do begin 
 readln(b);
 if b>0 then  
 k:=k+1;
end;
writeln('кол-во положительных чисел = ',k);
end.
В этой программе считается сумма положительных чисел среди введенных
Похожие вопросы
Предмет: Математика, автор: answer636