Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.

10-11 класс

Anvar1212 20 марта 2015 г., 22:32:59 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
TVcar
20 марта 2015 г., 23:52:09 (9 лет назад)

Сделал разницу значений.Сначала вводится длинна массива.Сделано через динамический массив!
Поставь наилучшее решение!)


var a:array of Integer;    n,i,max,min:Integer;
begin 
Readln(n); 
 SetLength(a,n); 
for i:=0 to Length(a) do 
  readln(a[i]); 
 max:=a[0]; 
 for i:=0 to Length(a) do 
  if a[i]>max then 
   max:=a[i]; 
min:=a[0]; 
for i:=0 to Length(a) do
   if a[i]<min then 
   min:=a[i];
  Writeln;
  Writeln(max-min); 
readln;
end

+ 0 -
Mama700w
21 марта 2015 г., 2:26:17 (9 лет назад)

разницу в положении или в значении

Ответить

Другие вопросы из категории

Помогите решить задачу.

Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:

program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.

Укажите компоненты для подключения к Интернету.

Вычислительное устройство
Модем
Поставщик интернет-услуг
Цифровая абонентская линия (DSL-соединение)
Беспроводное подключение
Подключение коммутируемого доступа

Читайте также

Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.

Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.

Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,

расположенных между максимальным и минимальным элементами.

Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами

ну или исправьте мое пжл

program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);

for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1

else for I:=c+1 to b-1 do p:=p*mas[i];

if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;

close (g);
end.

Народ,помогите дорешать задачу на С++,буду благодарен.

- В целочисленном массиве Х(N) удалить все элементы, расположенные между максимальным и минимальным элементами.
- Найти среднее арифметическое элементов массива до и после удаления.
- В программе написать функции: удаления элемента, поиска номеров минимального и
максимального элементов, определения среднего арифметического
элементов массива.

из выше перечисленного выводит только средне арифметическое и средне арифметическое между 1 и последним числом.




#include
float srednee(int* a, int min, int max)
{
int s = 0;
for(int i = min; i <= max; i++)
s += a[i];
return s * 1.0 / (max - min + 1);
}
using namespace std;
int min_i(int* a, int n)
{
int m = a[0];
int numb = 0;
for(int i = 1; i < n; i++)
if(m > a[i])
{
m = a[i];
numb = i;
}
return numb;
}
int max_i(int* a, int n)
{

int m = a[0];


int numb = 0;
for(int i = 1; i < n; i++)
if(m < a[i])
{
m = a[i];
numb = i;
}
return numb;
}
using namespace std;
int main()
{
int N;
cin >> N;
int X[N];

for(int i = 0; i < N; i++)
cin >> X[i];
cout << "srednee znachenie vsego massiva: " << srednee(X, 0, N - 1) << endl;
int min = min_i(X, N);
int max = max_i(X, N);
if(min > max)
{
int z = min;
min = max;
max = z;
}
if(max - min == 0 || max - min == 1)
cout << "srednee znachenie korotkogo massiva: " << srednee(X, 0, N - 1) << endl;
else
{
int delta = max - min;
for(int i = max; i < N; i++)
X[i - delta + 1] = X[i];
cout << "srednee znachenie korotkogo massiva: " << srednee(X, 0, N - delta) << endl;
system("pause");
return 0;
}
}



Вы находитесь на странице вопроса "Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.