Сколько элементов массива размерностью N на M больше заданного числа R. Подсчитать среднее арифметическое этих элементов.

Question

Информатика

Аделина

1 февраля, 17:33

Сколько элементов массива размерностью N на M больше заданного числа R. Подсчитать среднее арифметическое этих элементов.

+4

Ответы (1)

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

Зари · Answer 1

Const N = 5; M = 10; var a: array [1 ... N, 1 ... M] of real; s, R: real; kol, i, j: integer; / / kol - количество чисел begin writeln ('Введите R') ; readln (R) ; for i: = 1 to N do for j: = 1 to M do begin writeln ('Введите a[', i, ', ', j, ']') ; readln (a[i, j]) ; if a[i, j] > R then begin kol: = kol + 1; s: = s + a[i, j]; end; end; s: = s / kol; writeln (kol, ' чисел > ', R) ; writeln ('Среднее арифметическое равно ', s) ; end.