Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать пограмму,которая сначала должна обеспечть ввод 5 чисел в одномернй массив ,зтем выселить их сумму и вывести ее на экран

Ответ оставил Гость

Var i,sum:integer;
a:array[1..5] of integer;
begin
writeln(Введите числа);
for i:=1 to 5 do
begin
write(a[,i,]= );
read(a[i]);
sum:=sum+a[i];
end;
writeln(Сумма элементов массива равна ,sum);
end.