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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
