Определите среднее арифметическое всех элементов массива а[ условию а[i]> 5
lu000001
3
04.10.2019 14:01
0
Другие вопросы по теме Информатика
MiyaGi228
29.07.2019 22:20
Evg120058
07.08.2019 05:20
Era383727
07.08.2019 05:20
Viper397
07.08.2019 05:20
Twister04
07.08.2019 05:20
ашоттрубошот
07.08.2019 05:20
Ckorpid
30.05.2019 17:00
200005nikolll
30.05.2019 17:00
ruzruz258
30.05.2019 17:10
Популярные вопросы
- У Ирины было 450 сомов 30% денег она потратила на констовары, 45% на косметику.Сколько...
3 - 1. Укажите количество воск- лицательных предложенийво 2-й части.2. Выпишите...
3 - Compare with your country. Give examples of: -famous statues of national...
1 - 2. Прочитайте рассказ. Обратите внимание: в тексте выделены Смысловые части...
1 - Через точку А кола проведені хорда АС і діаметр АВ. Знайдіть відношення...
2 - Найдите Периметр треугольника, если его стороны равны тридвацатых, 16 см...
2 - Придумайте и решите простенькую задачу на законы Менделя !...
3 - Написать агитационную речь на тему: Молодое поколение( Объём до 70-80 слов)...
1 - Обрати поезію дракона Грыцького (за смаком) і зробити ідейно – художній...
3 - За що гайавата злиться на батька...
2
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.