Инофрматика 11 класс(массивы)
Нужно переделать программу,чтобы она вмсето скммы-произведение и вычеслить среднее арифмитическое кот код:
Program Pa;
var A:array[1..5] of real;
S:real;
I:integer;
begin
for i:=1 to 5 do
begin
writeln('a[',i,']=');
readln(a[i]);
end;
S:=0;
for i:=1 to 5 do S:=S+A[i];
writeln('S=',S);
end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Program z;

 var  a: array[1..100] of integer;

        i, n, min, max: integer;

Begin

  writeln('введите n');

  readln(n);

  writeln('введите ',n,' элементов массива');

  for i:=1 to n do

       read(a[i]);

  min:=a[1];

  max:=a[1];

  for i:=1 to n do

      begin

        if a[i]>max then max:=a[i];

        if a[i]<min then min:=a[i];

      end;

  writeln('min=',min,' max=',max);

  readln

end.