Найдите сумму элементов в массиве (3,5; 18.3; 28,5; 1,5; 0,18) Напишите программу на Pascal.

program zz1;

const mas:array[1 ... 5] of real = (3.5, 18.3, 28.5, 1.5, 0.18); / / задаем размер массива и вводим значения элементов

var s:real; i:integer; / /задаем переменные

begin

for i:=1 to 5 do / / выводим массив на экран в строчку через пробел

write (mas[i],' ');

writeln; / / переходим на новую строку для вывода

for i:=1 to 5 do

s:=s+mas[i]; / / находим сумму элементов массива

write ('сумма элементов массива = ', s); / / выводим ответ

end.