Суммировать отдельно положительные элементы, отдельно отрицательные

@error777 · Регистрация: 07.02.2009

Студворк — интернет-сервис помощи студентам

не получается пограмма помогите найти ошибку

напишите программу которая сначала вводит 10 чисел в одномерный массив, а затем складывает все положительные элементы, отдельно отрицательные

Pascal

program ex_1;
       var
       a:array[1..10] of real;
       s,t:real;
       i:integer;
       begin
       s:=0;
       t:=0;
       for i:=1 to 10 do
       begin
       writeln('ddtlb ffh',i);
       readln(a[i]);
 
       end;
 
       for i:=1 to 10 do
       if i>=0 then
       s:=s+a[i];
       for i:=1 to 10     do
       if i<0 then
       t:=t+a[i];
 
       writeln('summa max= ',s:3:3);
       writeln('summa min= ',t:3:3);
 
             readln
 
       end.

@SuPeR XaKer · 24.12.2010, 23:41

if i>=0 then

на

Pascal

1	if a[i]>=0 then

и

if i<0 then

на

Pascal

1	if a[i]<0 then

Опции темы