Задан одномерный массив размером 40. определите количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10. вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор

125

310

Посмотреть ответы 2

Ответы на вопрос:

ImVadimka

Информатика

4,4(37 оценок)

Const n = 40; var x: array[1..n] of integer; i, k, s: integer; begin randomize; writeln('элементы массива'); k : = 0; s : = 0; for i : = 1 to n do begin x[i] : = random(50); write(x[i]: 3); end; writeln; writeln('элементы со значением в интервале [7; 10]'); for i : = 1 to n do if (x[i] > = 7) and (x[i] < = 10) then begin k : = k + 1; s : = s + x[i]; write(x[i]: 3) end; if k = 0 then writeln('не найдены') else writeln(#13#10, ' элементов: ', k, ', среднее арифметическое=', s / k: 5: 3) end. тестовое решение: элементы массива 24 33 36 29 12 7 5 36 3 48 40 40 46 6 10 23 33 3 38 48 29 37 11 40 44 16 17 18 34 38 33 39 9 0 41 37 42 2 40 31 элементы со значением в интервале [7; 10] 7 10 9 элементов: 3, среднее арифметическое=8.667