Напишите программу, которая вводит с клавиатуры 20 реальных чисел, и организовывает их хранение в массиве. После этого определяет сумму элементов, значение которых больше среднего арифметического элементов массива.
More Questions From This User See All
Answers & Comments
Verified answer
Const n=20;var x:array[1..n] of real;
i:integer; s,sr:real;
begin
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
s:=0;
for i:=1 to n do s:=s+x[i];
sr:=s/n;
s:=0;
for i:=1 to n do
if x[i]<sr then s:=s+x[i];
writeln('sr = ',sr,' s = ',s);
end.