Задание 4 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

4. Напишите программу вычисления суммы всех элементов массива. Проверьте работу программы на заданном массиве

А = {7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}.

Сумма равна:...............

program s4_v1_4;

var

a: array[0..10] of real;

i: integer;

s: real;

begin

s := 0;

writeln(taskввод массиваtask);

for i := 0 to 10 do

begin

read(a[i]);

s := s + a[i]

end;

writeln(tasks=task, s);

end.

Сумма равна: 123.5