Максимальный элемент одномерного массива и его индекс

@EZHIK · Регистрация: 29.09.2012

Author24 — интернет-сервис помощи студентам

помогите решить. Найти максимальный элемент в массиве. Найти индекс максимального элемента.

@droider · 13.11.2012, 12:42

Pascal

Program Maximum;
var
mas: array of integer; // массив динамический из n эл-в
i, n, max, indmax: integer; 
begin 
Write('кол-во элементов массива =');
Read(n);
SetLength(mas, n); //задаем размерность
Writeln('Введите элементы');
for i :=0 to n-1 do
begin 
Readln(mas[i]);//ввод элементов
end;
writeln:
indmax:=1:   //сначала считаем, что первый элемент массива и есть максимальный 
mах:=mas[1]; //его индекс и величину записываем соответственно в переменные Indmax и mах 
for i: = 1  to n-1 do
if mas[i]>max then //если наш последующий элемент оказался больше текущего максимального элемента 
begin
max:=mas[i]; //то он является максимальным элементом
indmax:=i; // запомним его значение и индекс в переменных mах и Indmax 
end;
writeln ('Максимальный элемент в массиве =', mах);
writeln('Его индекс =', Indmах);
readln;
end.

Книги и поиск тоже бывают полезны

Добавлено через 6 минут

Pascal

1	for i: = 2 to n-1 do

должно быть вместо 1

@volvo · 13.11.2012, 12:45

Ну, и что это за бардак с индексами. Вводим начиная с нулевого, а проверяем - с первого? А если нулевой - максимальный, что тогда выдаст программа? Может, сначала проверять код, а потом постить - лучше?

@droider · 13.11.2012, 13:15

Держи, Ежик))

Delphi

Program Maximum;
var
mas: array of integer; // массив динамический из n эл-в
i, n, max, indmax: integer; 
begin 
Write('кол-во элементов массива =');
Read(n);
SetLength(mas, n); //задаем размерность
Writeln('Введите элементы');
for i :=0 to n-1 do
begin 
Readln(mas[i]);//ввод элементов
end;
writeln:
indmax:=1:   //сначала считаем, что первый элемент массива и есть максимальный 
mах:=mas[1]; //его индекс и величину записываем соответственно в переменные Indmax и mах 
for i: = 2  to n-1 do
if mas[i]>max then //если наш последующий элемент оказался больше текущего максимального элемента 
begin
max:=mas[i]; //то он является максимальным элементом
indmax:=i; // запомним его значение и индекс в переменных mах и Indmax 
end;
writeln ('Максимальный элемент в массиве =', mах);
writeln('Его индекс =', Indmах);
readln;
end.

Добавлено через 2 минуты
UI, изначально я прописал 2, но потом зря убрал и обратно не смог внести изменения

Добавлено через 1 минуту
И я указал на это

Добавлено через 25 минут
Я действительно немного замутил с индексами. Проверить сразу не было возможности. Поэтому, вот, конечный и рабочий вариант

Pascal

Program Maximum;
var
mas: array of integer; // массив динамический из n эл-в
i, n, indmax,  max: integer; 
begin 
Write('кол-во элементов массива =');
Read(n);
SetLength(mas, n); //задаем размерность
Writeln('Введите элементы');
for i :=0 to n-1 do
begin 
Readln(mas[i]);//ввод элементов
end;
writeln;
max:=mas[0]; // пусть максимальный первый элемент
for i:= 1  to n-1 do
begin
if mas[i]>max then //если наш последующий элемент оказался больше текущего максимального элемента 
max:=mas[i]; //то он является максимальным элементом
indmax:=i; // запомним его значение и индекс в переменных mах и Indmax 
end;
writeln ('Максимальный элемент в массиве =', max);
writeln('Его индекс =',indmax);
readln;
end.

@EZHIK 0 / 0 / 1 Регистрация: 29.09.2012 Сообщений: 23
		1
	Максимальный элемент одномерного массива и его индекс 13.11.2012, 12:09. Показов 4064. Ответов 3 Метки нет (Все метки) помогите решить. Найти максимальный элемент в массиве. Найти индекс максимального элемента. 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,428 Записей в блоге: 8
	13.11.2012, 12:45	3
	Ну, и что это за бардак с индексами. Вводим начиная с нулевого, а проверяем - с первого? А если нулевой - максимальный, что тогда выдаст программа? Может, сначала проверять код, а потом постить - лучше? 0

	13.11.2012, 13:15

Опции темы