Напишите в виде программы для паскаля. В массиве А(5) посчитать количество положительных и отрицательных элементов
Напишите в виде программы для паскаля. В массиве А(5) посчитать количество положительных и отрицательных элементов
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы