Question

Информатика , как найти среднее арифметическое чисел а[1]..a[20] начало программы program maximum; var a: array [1..20] of integer; i,max: integer; i,min: integer; i,среднее: integer; i: integer; begin a[1]: =56; a[2]: =78; a[3]: =48; a[4]: =90; a[5]: =45; a[6]: =54; a[7]: =63; a[8]: =52; a[9]: =43; a[10]: =54; a[11]: =64; a[12]: =59; a[13]: =54; a[14]: =53; a[15]: =52; a[16]: =58; a[17]: =71; a[18]: =58; a[19]: =59; a[20]: =70; for i: =1 to 20 do read (a[i]); max: =a[1]; for i: = 2 to 20 do if a[i]> max then max: = a[i]; write(max); for i: =1 to 20 do read (a[i]); max: =a[1]; for i: =2 to 20 do if a[i]

Answer 1

Program Maximum; var A: array [1..20] of integer;  i,sum: integer;  sr:real; Begin   A[1]:=56; A[2]:=78;   A[3]:=48; A[4]:=90;   A[5]:=45; A[6]:=54;   A[7]:=63; A[8]:=52;   A[9]:=43; A[10]:=54;   A[11]:=64; A[12]:=59;   A[13]:=54; A[14]:=53;   A[15]:=52; A[16]:=58;   A[17]:=71; A[18]:=58;   A[19]:=59; A[20]:=70;   for i:=1 to 20 do begin    sum+=A[i];  end;  sr:=sum/20;  write(sr);  end.