Question

Составьте программу нахождения суммы n производных чисел(число n с клавиатуры ввести)

Answer 1

var
    arr: array[1..100] of real;
    n: integer;
    sum, op: real;
    i: integer;
  begin
    write('Vvedite N ');
    readln(n);
         for i := 1 to n do
         begin
                  write('Vvtdite ',i,'-oe Chislo '); 
                  readln(arr[i]);
       end;
       sum := 0;
       for i := 1 to n do
            sum := sum + arr[i];
    writeln('Summa= ', sum);
end.