Инофрматика 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.