Отыскать среднее арифметическое элементов хороших от минимальногоPascal ABC
Отыскать среднее арифметическое частей хороших от минимального
Pascal ABC
1 ответ
Taisija Bedaeva
Const n=15;
var i,k,mn,indm,sm: integer;
a: array[1..n] of integer;
sar: real;
begin
randomize;
writeln('начальный массив:');
mn:=n; sm:=0;
k:=1;
for i:=1 to n do
begin
a[i]:=random(-n,n);
sm:=sm+a[i];
write(a[i],' ');
if a[i]=mn then k:=k+1;
if a[i]lt;mn then
begin
mn:=a[i];
indm:=i;
k:=1;
end;
end;
writeln;
writeln('малый элемент: ',mn,' индекс: ',indm);
sm:=sm-a[indm]*k;
writeln('сумма частей без малого: ',sm);
sar:=sm/(n-k);
writeln('среднее арифметическое: ',sar:7:3);
end.
исходный массив:
-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
минимальный элемент: -14 индекс: 4
сумма частей без малого: 6
среднее арифметическое: 0.462
var i,k,mn,indm,sm: integer;
a: array[1..n] of integer;
sar: real;
begin
randomize;
writeln('начальный массив:');
mn:=n; sm:=0;
k:=1;
for i:=1 to n do
begin
a[i]:=random(-n,n);
sm:=sm+a[i];
write(a[i],' ');
if a[i]=mn then k:=k+1;
if a[i]lt;mn then
begin
mn:=a[i];
indm:=i;
k:=1;
end;
end;
writeln;
writeln('малый элемент: ',mn,' индекс: ',indm);
sm:=sm-a[indm]*k;
writeln('сумма частей без малого: ',sm);
sar:=sm/(n-k);
writeln('среднее арифметическое: ',sar:7:3);
end.
исходный массив:
-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
минимальный элемент: -14 индекс: 4
сумма частей без малого: 6
среднее арифметическое: 0.462
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов