Пример использования одномерного массива

Задача№1 Составить программу вычисления суммы действительных чисел, записанных в одномерный массив a, размером 7 элементов и вывода на экран содержимого введенного массива и полученной суммы.

Программа решения задачи имеет вид:

program massiv; {заголовок программы}

const x=7; {описание константы}

var {Раздел описания переменных}

s:real;

i:integer;

a:array[1..x] of real; {описание массива}

begin

writeln('Введите ',x,' чисел'); {Вывод сообщения}

for i:=1 to x do {Цикл для ввода элементов массива}

readln(a[i]); {ввод с клавиатуры значений в массив}

s:=0; {Обнуление переменной для накапливания суммы}

writeln(' Введенный массив ');

for i:=1 to x do {Начало цикла для вывода элементов массива}

begin

write(a[i]:5:1,’ ‘); {вывод значений массива на экран}

s:=s+a[i]; {Накапливание суммы элементов массива}

end; {Конец цикла}

writeln; {переход на новую строку}

writeln('Сумма элементов массива s= ',s:5:1);

end. {Конец программы}