profile
Опубликовано 5 лет назад по предмету Информатика от gdgv

Помогите составить программу в Паскале.
Составить программу, формирующую массив из 10 дробных чисел вводом с клавиатуры и находящую суму всех его элементов.

  1. Ответ
    Ответ дан Аккаунт удален
    var 
    a: array[1..10] of real; 
     i: integer; 
     b: real;
    begin 
    for i := 1 to 10 do  
    begin   
    Write('Введите ', i, '-ый элемент массива ');   
    Readln(a[i]);   
    b := b + a[i]; 
    end; 
    Writeln('Сумма равна ',b);
    end.
    1. Ответ
      Ответ дан gdgv
      спасибо)