нужно написать программу по паскалю: сформировать массив из десяти элементов.элементы могут иметь положительные,отрицательные и нулевые значения.посчитать количество положительных,отрицательных и нулевых элементов.

1

Ответы и объяснения

Лучший Ответ!
2012-04-05T20:09:48+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array [1..100] of integer;
i,n,plus,minus,zero:integer;

Begin
  randomize;
  n:=10;
  for i:= 1 to n do begin
    a[i]:=random(n*10)- 10*n div 2 ;
    write(a[i]:4);
    if i mod 10=0 then writeln;
  end;
 
  for i:= 1 to n do begin
    if a[i]<0 then plus:=plus+1;
    if a[i]>0 then minus:=minus+1;
    if a[i]=0 then zero:=zero+1;
  end;
    
  writeln(plus, minus, zero);
 
End.