Это телефон, скайп и т.п.
можно. читай, если интересно. я пересказать своими словами полно и ясно не смогу.
http://computer76.ru/2014/02/03/p608/
1) 3
2) 4
3) 3
4) 1
5) 3
6) 2
7) 2
8) 3 (?)
9) 3
10) 2
Писал уже:
var input, num, nulls, positive, negative, i: integer;
begin
write('Введите кол-во чисел: ');
readln(input);
for i := 1 to input do begin
write('Введите число номером ', i, ': ');
readln(num); if num = 0 then inc(nulls, 1);
//if num < 0 then inc(negative, 1);
//if num > 0 then inc(positive, 1);
end;
writeln('Кол-во нулей: ', nulls);
//writeln('Кол-во положительных чисел: ', positive)
//writeln('Кол-во отрицательных чисел: ', negative);
<span>end.</span>
Відповідь вікно папка ярлик