Предмет: Информатика,
автор: сложнааа888
Помогите Пожалуйста!!Буду очень Благодарна!!♥
Придумать задачу на подсчет элементов по определенному признаку введенных с клавиатуры. (В Паскале Abc)
Ответы
Автор ответа:
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.
В этой программе считается сумма положительных чисел среди введенных
begin
readln(a);
for i:=1 to a do begin
readln(b);
if b>0 then
k:=k+1;
end;
writeln('кол-во положительных чисел = ',k);
end.
В этой программе считается сумма положительных чисел среди введенных
Похожие вопросы
Предмет: Математика,
автор: lakiBro
Предмет: Математика,
автор: answer636
Предмет: Литература,
автор: lilia2509191992
Предмет: Математика,
автор: Sticcas
Предмет: Математика,
автор: alsugaffarova