Question

Можно решение этого плиз, через Паскаль

Answer 1

Номер 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.