Регистрация
danilchirkov0
16.03.2020 06:01
Информатика
Есть ответ 👍

Определите среднее арифметическое всех элементов массива а[ условию а[i]> 5

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

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

Алинулька11
Алинулька11
4,7(61 оценок)

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]> 5 then begin

ss: =ss+a[i];

inc(cc);

end;

end;

writeln;

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

end.

samigyllin
samigyllin
4,5(44 оценок)

пронумеруем для наглядности:   1, 2, 3, 4  итак:   1) сравниваем первую пару, например 1 и 2  2) сравниваем вторую пару — 3 и 4  3) сравниваем победителей первых двух пунктов между собой. победитель будет самым тяжёлым  4) сравниваем проигравших первых двух пунктов между собой. проигравший будет самым лёгким  5) теперь сравниваем те 2 арбуза, которые остались посерединке.

Популярно: Информатика