Сформировать одномерный массив, состоящий из N элементов, с помощью генератора случайных чисел. Диапазон [-10;15]. Найти количество отрицательных элементов, положительных элементов, нулей. Вывести сообщение
More Questions From This User See All
Answers & Comments
Ответ:
var
n: array[-10..15] of integer;
i,a,b,c: integer;
begin
randomize;
for i:=-10 to 15 do
begin
n[i]:=random(-10,15);
end;
for i:=-10 to 15 do
begin
if n[i] > 0 then
a:= a + 1
else
begin
if n[i] < 0 then
b:= b+1
else
c:= c + 1
end
end;
writeln('Количество положительных чисел: ',a);
writeln('Количество отрицательных чисел: ',b);
writeln('Количество нулей: ',c);
end.