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

Найти среднее арифметическое элементов последовательности, превосходящих число 12. массив задан датчиком случайных чисел на интерваде [-44,35]. Размер массива -21 элемент
Гость
Ответ(ы) на вопрос:
Гость
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        Begin        S:=S+A[i];        k:=k+1        End;     End; WriteLn; WriteLn('Sr = ',S/k) End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы