ПОМОГИТЕ СРОЧНО!!!! Задача 1. Найти сумму пяти целых чисел массива. Program z1; usescrt;...

Question

ПОМОГИТЕ СРОЧНО!!!!
Задача 1. Найти сумму пяти целых чисел массива.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
Begin
...:=0;
Writeln ('Введитеэлементымассива');
for i:=1 to 5 do
readln (....);
for i:=1 to 5 do
...:= s+ a[i];
Writeln ('….=',….);
End.

Answer 1

Program z1; 
usescrt; 
var a:array [1..5] of integer; 
s, i:integer; 
Begin 
s:=0; 
Writeln ('Введите элементы массива'); 
for i:=1 to 5 do 
readln (a[i]); 
for i:=1 to 5 do 
s:= s+ a[i]; 
Writeln ('s=',s); 
End.