нужно написать программу по паскалю: сформировать массив из десяти элементов.элементы могут иметь положительные,отрицательные и нулевые значения.посчитать количество положительных,отрицательных и нулевых элементов.
нужно написать программу по паскалю: сформировать массив из десяти элементов.элементы могут иметь положительные,отрицательные и нулевые значения.посчитать количество положительных,отрицательных и нулевых элементов.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
const n = 15;
var a: array[1..n] of integer;
i,k1,k2: integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(50)-25;
write(a[i],' ');
end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
if a[i]>0 then k1:=k1+1
else if a[i]<0 then k2:=k2+1;
writeln(k1,' ',k2,' ',n-k1-k2)
end.