Задав одномерный массив целочисленных данных А в формате LONGINT, найти сколько отрицательных, положительных и нулевых элементов в массивеA={a[i]}. Длина массива N<=20. Исходные данные задать самостоятельно, учитывая формат элементов массива A.
Ответы
Ответ дал:
1
var
a:array of longint;
o,p,i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
begin
readln(a[i]);
if a[i]>=0 then
if a[i]>0 then
inc(p)
else
inc(o);
end;
writeln;
writeln('Pol: ', p);
writeln('=0: ', o);
writeln('Otr: ', n-p-o);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад