обусловьте среднее арифметическое всех частей массива А[ 1...10]удовлетворяющих условию

Обусловьте среднее арифметическое всех частей массива А[ 1...10]удовлетворяющих условию А[i]gt;5

Задать свой вопрос
1 ответ

var a: array [1..10] of integer;

i: integer; ss: real; cc: byte;

begin

ss:=0;

cc:=0;

for i:=1 to 10 do begin

write('A[',i,'] = ');

readln(a[i]);

if a[i]gt;5 then begin

ss:=ss+a[i];

inc(cc);

end;

end;

writeln;

writeln('Среднее арифметическое = ',ss/cc);

end.

Люда Шикоян
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт