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

[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 23:12

[Адель]

const n=14;
var
  a:Array [0..n] of integer;
  i,s1,s2,s3,count1,count2,count3:Integer;
begin
  for i:=0 to n do
    readln(a[i]);
    s1:=0; s2:=0; s3:=0;
    count1:=0;count2:=0;count3:=0;
  for i:=0 to n do
  begin
  if a[i]>0 then begin
    s1:=s1+a[i];
    inc(count1);
  end;
  if a[i]<0 then begin
    s2:=s2+a[i];
    inc(count2);
  end;
  if a[i]=0 then begin
    s3:=s3+a[i];
    inc(count3);
  end;
  end;
  writeln('>0:  ',s1,' * ',count1);
  writeln('<0:  ',s2,' * ',count2);
  writeln('=0:  ',s3,' * ',count3);
  readln;
end.

[Артемий]

Сумма нулевых элементов - что-то новенькое!

З.Ы. Адель,зачем так сложно?Пост Таn проще!

Сообщение отредактировано: Артемий2 - 20.03.2007 2:50

[Гость]

Пост Таn проще!

Возможно... Только вот он не делает того, что требовалось в задании ...

[Tan]

ну сумму я думаю создатель темы сможет добавить, собственно говоря так и задумывал.

[Адель]

проще??
там токо сумма добавленна, в следствии чего begin\end появился

ps когда постила, Tan'овского не видела

[klem4]

Tan, ты уверен что компилятор гарантированно догадается за тебя обнулить счетчики перед циклом ? Я нет.

[Tan]

окей, сейчас исправимся, хорошее замечание, я просто работаю с компилятором где это не обязательно делать.

[klem4]

В таких моментах всегда лучше перестраховываться, у тебя дома один компилятор, а в школе/институте другой.