Решите пожалуйста информатику. Срочно
Задача:
Написать программу, в которой описать массив из 5 целых чисел, ввести элементы массива с клавиатуры, вычислить сумму всех элементов массива и вывести её на экран.

Ответ

Автор - pusaxe

var

ar: array[1..5]of integer;

i, sum: integer;

begin

sum := 0;

for i := 1 to 5 do

begin

read(ar[i]);

sum := sum + ar[i];

end;

write(sum);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.