Информатика , как найти среднее арифметическое чисел А[1]..A[20] начало программы Program...

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.

Comments

высвечивается ощибка: Неизвестное имя 'sum'

---

почему при вводе данных у меня можно вводить бесконечное количество цифр ???

---

Ответьте пожалуйста

---

данная программа не запрашивает никаких данных...

---

удали ВЕСЬ свой код

---

И 'вставь' тот, что я скинул

---

Тогда получается , но мне надо чтобы компьютер еще находил максимальное и минимальное чило

---

Program Maximum;
var A: array [1..20] of integer;
i,sum,max,min: 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;
max:=A[1];min:=A[1];
for i:=1 to 20 do begin
sum+=A[i];
if (A[i] if (A[i]>max) then max:= A[i];
end;
sr:=sum/20;
writeln('Среднее число - ',sr);
writeln('Мин. число - ',min);
writeln('Макс. число - ',max);
end.

---

СПАСИБО БОЛЬШОЕ)))