Статистика
Всего в нашей базе более 4 326 244 вопросов и 6 444 423 ответов!

Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)

5-9 класс

Dianakot22 24 сент. 2013 г., 13:42:22 (6 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Superirina1983
24 сент. 2013 г., 16:30:07 (6 лет назад)

const
n = 10;
var
i:integer;
mas : array[1..n] of integer;
max_num, max_index: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(mas[i]);

for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
end.

 

 

 

 

Объяснение - 

константы:

n- это сколько чисел будет в твоём массиве

max_num - максимальное число 

max_index - позиция числа

 

Функции :

for i:=1 to n do readln(mas[i]); - вводим числа в массив

 

 

for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;

 

ищем максимальное число и его позицию

Ответить

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

Создайте страницы

по образцу:

Pascal

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

Мышки ели шишки.

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

1) Удвоить все элементы массива. 2)Найти сумму элементов двух массивов одинаковой размерности. 4) Найти Минимальные элементы массива и

его индекс.

5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива

7) Определить количество максимальных элементов массива

P.S Ребят, все в паскале...заранее спасибо=*



Вы находитесь на странице вопроса "Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.