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

@smartScan · Регистрация: 15.12.2016

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

Существует одномерном массив. Программа должна определить количество положительных, отрицательных и нулевых элементов. Результат вывести на экран.
для pascalABC. Заранее спасибо.

@Tosse · 15.12.2016, 22:56

Pascal

const
m = 10;
var A:array[1..m] of integer;
i, b, c, n : integer;
begin
for i:=1 to m do
    begin
    A[i]:=random(10);
    write(A[i]:2);
    end;
writeln;
b:=0;c:=0;n:=0;
for i:=1 to m do
    if A[i] > 0 then
        inc(b)
    else
        if A[i]<0 then
            inc(c)
        else
            inc(n);
writeln('Количество положительных: ',b:2,' отрицательных: ',c:2,' нулевых ',n:2,' элементов');
end.

@smartScan 0 / 0 / 1 Регистрация: 15.12.2016 Сообщений: 3
		1
	Определить количество положительных, отрицательных и нулевых элементов 15.12.2016, 07:52. Показов 1364. Ответов 1 Метки нет (Все метки) Существует одномерном массив. Программа должна определить количество положительных, отрицательных и нулевых элементов. Результат вывести на экран. для pascalABC. Заранее спасибо. 0

	15.12.2016, 22:56

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

Решение