Регистрация
GreatGenius
14.03.2020 07:22
Информатика
Есть ответ 👍

Определите состав и основные характеристики оборудавания (6 задание)

127
280
Посмотреть ответы 1

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

Алинулька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.

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