Предмет: Информатика,
автор: Аноним
cnt1_3 Ввести n чисел, подсчитать, сколько среди них положительных, отрицательных и чисел больших 10.
Ответы
Автор ответа:
0
var n,x,i,p,m,s:integer;
begin
writeln('Введите n: ');
readln(n);
for i:=1 to n do
begin
readln(x);
if x<0 then m:=m+1;
if x>0 then p:=p+1;
if x>10 then s:=s+1;
end;
writeln('Положительных: ',p);
writeln('Отрицательных: ',m);
writeln('Больше 10: ',s);
end.
begin
writeln('Введите n: ');
readln(n);
for i:=1 to n do
begin
readln(x);
if x<0 then m:=m+1;
if x>0 then p:=p+1;
if x>10 then s:=s+1;
end;
writeln('Положительных: ',p);
writeln('Отрицательных: ',m);
writeln('Больше 10: ',s);
end.
Интересные вопросы
Предмет: Физика,
автор: almassitdikov
Предмет: Русский язык,
автор: bembeevazinaida8
Предмет: История,
автор: tendermarshmellou202
Предмет: Физика,
автор: Nastya131613