Напишите в виде программы для паскаля. В массиве А(5) посчитать количество положительных и отрицательных элементов
10-11 класс
|
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.
Другие вопросы из категории
Какое число в последовательности 1, 2, 2, 3, 3, 3 … стоит на К-м месте?
1. Число,
содержащее в своей записи цифру 8, не может принадлежать позиционной системе
счисления
A)
Читайте также
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.