Информатика, опубликовано 2018-08-22 23:49:54 by Гость
Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел.
Ответ оставил Гость
program cycle_for;
var i,kn : byte; x:real;
begin
kn:=0;
for i:=1 to 10 do
begin
writeln(Введите ,i, число: );
readln(x);
if x>0 then kn:=kn+1 {увеличиваем кол-во на 1}
end;
writeln(Вы ввели ,kn, положительных чисел.);
readln
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на