Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные значения. Опишите на русском языке или на одном из языков
5-9 класс
|
программирования алгоритм, который находит и выводит номер элемента массива, наименее отличающегося от среднего арифметического всех его элементов.
Но лучше на языке Паскаль
program approximation;
var m:array[1..40] of real; s,v:real; i,k:integer;
begin
s:=0;
for i := 1 to 40 do
begin
write ('Введите ',i,'-й элемент массива');
readln(m[i]);
s:=s+m[i];
end;
s:=s/40;
v:=m[1]-s;
for i := 2 to 40 do
begin
if (v<(m[i]-s)) then
begin
v:=m[i]-s;
k:=i;
end;
end;
writeln (k,'-й элемент наименее отличается от среднего ',s);
end;
end.
Другие вопросы из категории
км/ч, скорость течения реки v1 км/ч, время движения по озеру t1 ч, а против
течения реки – t2 ч. Составьте блок-схему и записать алгоритм решения
поставленной задачи.
y=14х(в квадрате) -5х(в кубе) + 11х-17.
y=5x(в квадрате)-10х+2.
Читайте также
рут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде.Нужно паскаль
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные целые значения.Напишите программу,которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.
массива которые имеют четные значения и не делятся на 3
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.