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.

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.