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

Question

Информатика

Федуся

5 февраля, 10:10

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

+5

Ответы (1)

~~Знаете ответ на вопрос?~~

Пульхерия · Answer 1

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 do

begin

s:=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]
writeln ('Количество:', d) ;

writeln ('Массив:') ;

for i:=1 to 20 do

write (a[i],',') ;

end.