Program z; var mas: array [1..5] of integer; i: integer; a: real; begin for i:=1 to 5 do readln(mas[i]); a:=(mas[1]+mas[2]+mas[3]+mas[4]+mas[5]) / 5; writeln(a); end.
Var a:array[1..5] of integer;i:integer;m,z:real; begin for i:=1 to 5 do begin readln(a[i]); m:=m+a[i]; end; z:=m/5; writeln(z); end.