Найти сумму первых k элементов массива а(20); сколько чисел массива не превышает среднее значение суммы n элементов массива

274

431

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

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

солнвшко

Информатика

4,8(86 оценок)

Var k,n,s,d,i,u,s1: integer; a: array[1..20] of integer; begin randomize; readln(k,n); for i: =1 to 20 do a[i]: =random(10); for i: =1 to n dobegins: =s+a[i]; inc(u); end; writeln( 'среднее арифметическое в массиве = ', s/u ); for i: =1 to k do s1: =s1+a[i]; writeln('сумма: ',s1); for i: =1 to 20 do if a[i]< s/u then d: =d+1; writeln('количество: ',d); writeln('массив: '); for i: =1 to 20 do write(a[i],','); end.