На паскале. Найдите среднее арифметическое элементов одномерного массива, состоящего из 10 чисел, которые превышают по велечине число d. Число d и остальные элементы массива вводятся с клавиатуры
Ответы
Ответ дал:
1
Ответ:
var i,k,s,d:integer;
a: array [1..10] of integer;
begin
writeln('введите массив');
for i:=1 to 10 do
readln(a[i]);
write('d= ');
readln(d);
for i:=1 to 10 do
if a[i]>d then
begin
k:=k+1;
s:=s+a[i];
end;
writeln(s/k);
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад