Вычислить сумму элементов массива, расположенных после первого положительного элемента - Turbo Pascal (33828)

Формулировка задачи:

В одномерном массиве, состоящем из n вещественных элементов, вычислить Сумму элементов массива, расположенных после первого положительного элемента.

Код к задаче: «Вычислить сумму элементов массива, расположенных после первого положительного элемента - Turbo Pascal (33828)»

textual
uses crt;
var  a:array[1..100]  of real;
i,n:integer;
s:real;
BEGIN
clrscr;
  repeat
   write('n = ');
   read(n);
  until n>0;
 
   for i:=1 to n do
   a[i]:=random(10+3);
 
    for i:=1 to n do
     write(a[i]:3:2,'  ');
     writeln;
     s:=0;
     for i:=1 to n do
      if a[i]>0 then
       s:=s+a[i+1];
 
       if s=0 then
        write('Елемент последнний , или положительного нету...')
       else
        write('Сумма = ',s:3:2);
readkey;
END.

7   голосов, оценка 4.714 из 5


СОХРАНИТЬ ССЫЛКУ