Дана таблица А[1:100] найти количество элементов этой таблицы, больших среднего…

Question

35

Дана таблица А[1:100] найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

italones · Accepted Answer

96

italones

09 февраля 2024

var a: array[1… 100] of integer; s,i: integer; sr: real; Begin {vvod massiva a} for i: =1 to 100 do sr: =sr+a[i]; sr: =sr/100; for i: =1 to 100 do if a[i]>sr then s: =s+1; writeln (s); End.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: