Инофрматика 11 класс(массивы) Нужно переделать программу,чтобы она вмсето...

Question

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

Answer 1

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]

      end;

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

  readln

end.