Дан массив целых чисел. Найти количество отрицательных элементов массива

@Morfius73 · Регистрация: 26.03.2010

Дан массив целых чисел.Найти количество отрицательных элементов массива.

@SuPeR XaKer · 29.10.2010, 00:26

Pascal

kol:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(kol);
end;

@Morfius73 0 / 0 / 0 Регистрация: 26.03.2010 Сообщений: 14
		1
	Дан массив целых чисел. Найти количество отрицательных элементов массива 29.10.2010, 00:22. Показов 2885. Ответов 1 Метки нет (Все метки) Дан массив целых чисел.Найти количество отрицательных элементов массива. 0

Опции темы

Решение