Номер 1
program n_1;
var a: array [1..5] of double; i: integer;
begin
for i:=1 to 5 do begin read(a[i]); a[i]:=a[i]*2; end;
for i:=1 to 5 do write(a[i]:0:3, ' ');
end.
Номер 2
program n_2;
var a: array [1..5] of double; i: integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=2 to 5 do a[1]:=a[1]+a[i];
writeln(a[1]/5:0:3)
end.