Найти количество положительных, отрицательных и равных нулю элементов массива

@Кот_Васька · Регистрация: 30.11.2012

Здравствуйте ... Товарищи пожалуйста помогите с Турбо Паскалем
Найти количество положительных, отрицательных и равных нулю элементов массива:
М = (-5, 0.1, 2.8, 0.64, 3, -5.1, 0, -7.5, 4.6, 10).

@pryda · 01.12.2012, 06:48

Pascal

var m:array[1..10]of real=(-5, 0.1, 2.8, 0.64, 3, -5.1, 0, -7.5, 4.6, 10);
        i,cp,co,null:integer;
begin
cp:=0; co:=0; null:=0;
for i:=1 to 10 do
if m[i]>0 then inc(cp) else
if m[i]<0 then inc(co) else inc(null);
writeln('Положительных:',cp,' Отрицательных:',co,' Нулей:',null);
end.

@Кот_Васька 0 / 0 / 0 Регистрация: 30.11.2012 Сообщений: 4
		1
	Найти количество положительных, отрицательных и равных нулю элементов массива 01.12.2012, 00:57. Показов 2594. Ответов 1 Метки нет (Все метки) Здравствуйте ... Товарищи пожалуйста помогите с Турбо Паскалем Найти количество положительных, отрицательных и равных нулю элементов массива: М = (-5, 0.1, 2.8, 0.64, 3, -5.1, 0, -7.5, 4.6, 10). __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти количество положительных, отрицательных и равных нулю элементов массива

Решение