Подсчитать количество положительных отрицателтных нулевых элементов массива (v1,v2,...,v90)
Подсчитать количество положительных отрицателтных нулевых элементов массива (v1,v2,...,v90)
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 90;
var
v: array[1..n] of integer;
i, e, nn, np, nz: integer;
begin
Randomize;
nn := 0; np := 0;
for i := 1 to n do
begin
e := Random(25) - 12;
v[i] := e;
if e > 0 then np := np + 1
else if e < 0 then nn := nn + 1;
end;
nz := n - np - nn;
writeln('Число элементов в массиве: отрицательных- ', nn, ', нулевых- ', nz,
' положительных- ', np);
end.
Тестовое решение:
Число элементов в массиве: отрицательных- 38, нулевых- 6 положительных- 46
ГостьPascalABC.NET
var
v:array[1..90]of integer;
i,otr,pol,n:integer;
begin
for i:=1 to 90 do
begin
v[i]:=random(-10,10);
write(v[i],'; ');
if v[i]<0 then otr:=otr+1;
if v[i]>0 then pol:=pol+1;
if v[i]=0 then n:=n+1;
end;
writeln;
writeln('Положительных: ',pol);
writeln('Отрицательных: ',otr);
writeln('Нулевых: ',n);
end.
Не нашли ответ?
Похожие вопросы