Удалить из массива максимальный элемент - Free Pascal
Формулировка задачи:
Из одномерного массива А [10] удалить максимальный элемент.
Помогите составить программу, пожалуйста.
Решение задачи: «Удалить из массива максимальный элемент»
textual
Листинг программы
var a:array[1..10] of integer; n,i,imx:integer; begin randomize; n:=10; writeln('Исходный массив'); imx:=1; for i:=1 to n do begin a[i]:=random(100); if a[i]>a[imx] then imx:=i; write(a[i]:3); end; writeln; writeln('Максимальный элемент=',a[imx],' его номер=',imx); if imx<n then for i:=imx to n-1 do a[i]:=a[i+1]; n:=n-1; writeln('Удаление максимального'); for i:=1 to n do write(a[i]:3); readln end.
Объяснение кода листинга программы
- Объявляется массив a размером 10 для хранения целых чисел.
- Объявляются переменные n, i, imx типа integer.
- Переменная n инициализируется значением 10.
- Выводится сообщение
Исходный массив
. - Переменная imx инициализируется значением 1.
- В цикле от 1 до n происходит следующее:
- Элементу массива a[i] присваивается случайное число от 1 до 100.
- Если a[i] больше a[imx], то imx обновляется значением i.
- Элемент массива a[i] выводится на экран в 3-х знаках.
- После цикла выводится сообщение
Максимальный элемент=
, а затем выводится элемент массива a[imx] и сообщениеего номер=
. - Если imx меньше n, то в цикле от imx до n-1 происходит следующее:
- Элементу массива a[i] присваивается значение a[i+1].
- Переменная n обновляется значением n-1.
- Выводится сообщение
Удаление максимального
. - В цикле от 1 до n происходит следующее:
- Элемент массива a[i] выводится на экран в 3-х знаках.
- Программа ожидает ввода с клавиатуры.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д