Найти максимальный элемент и его номер?

Мэри17 22 июл. 2020 г., 15:38:48

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 ;

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

Aaaroma 23 апр. 2020 г., 19:48:07 | 5 - 9 классы

СРОЧНО?

СРОЧНО!

Решить в Pascal 1) Найти максимальный элемент массива, который больше 150.

Известно, что значения элементов массива положительны и не превосходят 200.

2) Среднестатистическим назовем элемент массива, если для него модуль разности его значения и среднего арифметического элементов массива достигает минимума.

Найти среднестатистический элемент массива.

Заранее большое спасибо).

Andrei1707 21 июл. 2020 г., 09:38:07 | 5 - 9 классы

Нужно ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера?

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

Pascal ABC.

Elizaveta1484 18 апр. 2020 г., 12:29:04 | 5 - 9 классы

Помогите сделать в Pascal Найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0?

Помогите сделать в Pascal Найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0.

В промежутке(10 ; 50).

Настя631прдлвптррии 2 июн. 2020 г., 15:30:58 | 5 - 9 классы

1) Удвоить все элементы массива?

1) Удвоить все элементы массива.

2)Найти сумму элементов двух массивов одинаковой размерности.

4) Найти Минимальные элементы массива и его индекс.

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

S Ребят, все в паскале.

Заранее спасибо = *.

Romanys 27 февр. 2020 г., 14:35:19 | 10 - 11 классы

Найти количество элементов массива, расположенных между первым минимальным и последним максимальным?

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

Программа нужна в Pascal.

Люда1985 6 авг. 2020 г., 06:13:38 | 10 - 11 классы

Найти сумму элементов массива с четными номерами позиции В Pascal?

Найти сумму элементов массива с четными номерами позиции В Pascal.

Очень нужно!

Виленочка 26 июл. 2020 г., 07:34:27 | 10 - 11 классы

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

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

(начертить схему).

DeadGirl5 6 сент. 2020 г., 01:59:41 | 10 - 11 классы

Turbo Pascal * * * * (Дан одномерный числовой массив?

Turbo Pascal * * * * (Дан одномерный числовой массив.

Определить произведение элементов массива, расположенных между максимальным и «центральным» элементами массива (предполагается, что число элементов – нечетное и максимальный единственный).

Помогать1 6 нояб. 2020 г., 19:51:15 | 5 - 9 классы

Pascal 1?

Pascal 1.

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

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

Slideq 30 окт. 2020 г., 04:08:28 | 5 - 9 классы

Найти номера минимального и максимального элементов массива, в Паскале?

Найти номера минимального и максимального элементов массива, в Паскале.