Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел

@VLena · Регистрация: 21.09.2015

Author24 — интернет-сервис помощи студентам

Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел.
Вводится число N, а затем N чисел.
Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел.

@Puporev · 24.10.2015, 19:59

Pascal

var n,i,a,ko,kp,k0:integer;
begin
write('n=');
readln(n);
ko:=0;
kp:=0;
k0:=0;
for i:=1 to n do
 begin
  readln(a);
  if a=0 then inc(k0);
  if(a<0) then inc(ko);
  if(a>0)then inc(kp);
 end;
write(k0,' 'kp,' ',ko);
end.

@VLena 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 211
		1
	Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел 24.10.2015, 19:47. Показов 4072. Ответов 1 Метки нет (Все метки) Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 0

	24.10.2015, 19:59

Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел

Решение