Информатика, как найти среднее арифметическое чисел А[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]

Question

Информатика

Груша

18 ноября, 11:07

Информатика, как найти среднее арифметическое чисел А[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]

+2

Ответы (1)

Знаете ответ на вопрос?

Федотья · 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.