Массивы Опции

[Beseech]

В одномерном массиве A из 15 элементов вычислить суммы и количество положительных, отрицательных и нулевых элементов. Исходный массив и результаты расчетов вывести на экран

[Tan]

 Uses crt;
Const N = 15;
var ms : array [1..N] of integer;
     i : integer;
   pos,neg,nul : integer;
begin
pos:=0; neg:=0; nul:=0;
randomize;
    for i:=1 to N do 
  begin ms[i]:=random(15)-7; write (ms[i]:3);
    if ms[i] > 0 then inc (pos) else
    if ms[i] < 0 then inc (neg) else inc(nul);
  end;
writeln;
writeln ('pos ',pos);
writeln ('neg ', neg);
writeln ('nil ',nul);
readkey;
end.

Сообщение отредактировано: Tan - 20.03.2007 19:12