Напишите в виде программы для паскаля.

В массиве А (5) посчитать количество положительных и отрицательных элементов

Question

Информатика

Глебка

2 января, 22:57

Напишите в виде программы для паскаля.

В массиве А (5) посчитать количество положительных и отрицательных элементов

+3

Ответы (1)

Знаете ответ на вопрос?

Стефан · Answer 1

var

a: array[1 ... 5] of integer;

p, ot, i:integer;

begin

p:=0;

ot:=0;

for i:=1 to 5 do

readln (a[i]) ;

for i:=1 to 5 do begin

if a[i]>0 then

p:=p+1

else

ot:=ot+1;

end;

writeln ('polozitelnich=', p, ' otrizatelnich=', ot) ;

end.

Напишите в виде программы для паскаля.В массиве А (5) посчитать количество положительных и отрицательных элементов

Напишите в виде программы для паскаля.

В массиве А (5) посчитать количество положительных и отрицательных элементов