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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт