Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)
5-9 класс
|
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;
ищем максимальное число и его позицию
Другие вопросы из категории
а:=10, в:=а, а:=а+в, в:=а-в
Дана строка. Подсчитать количество слов, заканчивающихся буквой и.
Например,
Мышки ели шишки.
Читайте также
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
максимальный элемент и его номер. Отмечу как лучшее!