Линейные массивы

@vad1m · Регистрация: 06.11.2009

Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных, положительных и нулевых элементов.

Заранее спасибо.

@Jazon_deenAlt · 06.11.2009, 17:30

Pascal

pol:=0;
otr:=0;
nol:=0;
for i:=1 to n do begin
if a[i]>0 then pol:=pol+1
else if a[i]=0 then nol:=nol+1
else if a[i]<0 then otr:=otr+1;
end;

Добавлено через 53 секунды
где pol, otr, nol переменные типа интеджер которые в конце надо вывести

@vad1m · 06.11.2009, 21:35 **[ТС]**

спасибо большое.

@vad1m 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 4
		1
	Линейные массивы 06.11.2009, 17:19. Показов 1086. Ответов 2 Метки нет (Все метки) Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных, положительных и нулевых элементов. Заранее спасибо. 0

Опции темы

Решение