простые задачи

[scroyler]

помогите решить 2 элементарные задачки

1.Дан массив , сколько в нем положительных элементов? Найти их сумму
2.Дан массив,каких элементов больше? положительных или отрицательных?

Спасибо)

[Sciv]

2 элементарные задачки

Раз элементарные, то какая проблема в решении?

"Показывай, как массив вводишь" (с)Stilet

[Develop]

Наверное как-то так надо:

procedure Prepare(var mas: array of real);
var
  i: integer;
  Sum: real;
  pos, neg: integer;
begin
  Sum:= 0.0;
  pos:= 0;
  neg:= 0;
  for i:=0 to High(mas) do
  begin
    if mas[i] > 0.0 then
    begin
      Inc(pos);
      Sum:= Sum + mas[i];
    end
    else
      if mas[i] < 0.0 then
      begin
        Inc(neg);
      end
      else ; {zero value}
  end;
  {}
  writeln('-----------');
  writeln('Positive elements count: ',pos);
  writeln('Negative elements count: ',neg);
  writeln('Positive elements amount: ',Sum:6:3);
end;

[scroyler]

Решить легко,скажу честно просто лень

Что то ты загнул с решением,мне на уровне информатике 9класса

[Develop]

Это я в Гугле нашел

Ну если не подходит, то ищи сам.

[Sciv]

Что то ты загнул с решением,мне на уровне информатике 9класса

Ха, а это на каком уровне решено?