Найти среднее арифметическое элементов последовательности, превосходящих число 12. массив...

Question

Найти среднее арифметическое элементов последовательности, превосходящих число 12. массив задан датчиком случайных чисел на интерваде [-44,35]. Размер массива -21 элемент

Comments

Паскаль?

---

Да

---

В конце строка end. красным выделена. Что делать?

---

Вы скопировали целиком?

Answer 1

Const N = 21;
Var
   A:array[1..N] of integer;
   i,k:integer;
   S:real;
Begin
randomize;
S:=0;
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(80)-44;
    Write(A[i],' ');
    if A[i]<=12 then<br>       Begin
       S:=S+A[i];
       k:=k+1
       End;
    End;
WriteLn;
WriteLn('Sr = ',S/k)
End.