Question

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

Ответ написать как пишут в паскале.

Answer 1

Program pr;
uses crt;

var  
mas: array[1..10] of real;
sum: real;
i: integer;

Begin
sum:=0;
for i:=1 to 10 do
    Begin 
        write('mas', i, ' = ');
        readln(mas[i]);
        sum:=sum + mas[i];
    end;

writeln();
writeln('sum = ' ,  sum);

readln; 
end. 

Answer 2

Спасибо:)

Answer 3

Скажи пожалуйста а что обозначает  строчка uses crt?  

Answer 4

uses - подключает модуль crt, который содержит функции для работы с экраном и текстом