Cnt1_3 ввести n чисел, подсчитать, сколько среди них положительных, отрицательных и чисел больших 10.

114

488

Посмотреть ответы 2

Ответы на вопрос:

hizubro

Информатика

4,5(81 оценок)

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.

Nastya06923

Информатика

4,4(96 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin var a: =readinteger('a='); var b: =readinteger('b='); for var i: =a to b do print(i) end. тестовое решение: a= 11 b= 24 11 12 13 14 15 16 17 18 19 20 21 22 23 24