Var a: array [1..5] of integer;
i,sum: integer;
begin
sum := 0;
for i:=1 to 5 do
WriteLN('Введите элемент массива');
ReadLN(a[i]);
end;
for i := 1 to 5 do
sum := sum + a[i];
write(sum);
end.
===== PascalABC.NET =====
var a := ReadArrReal('Введите 5 чисел:', 5);
Print('Их сумма равна', a.Sum)
Var a: array [1..5] of integer;
i,sum: integer;
begin
sum := 0;
for i:=1 to 5 do
begin
WriteLN('Введите элемент массива');
ReadLN(a[i]);
end;
for i := 1 to 5 do
sum := sum + a[i];
write(sum);
end.
===== PascalABC.NET =====
begin
var a := ReadArrReal('Введите 5 чисел:', 5);
Print('Их сумма равна', a.Sum)
end.