Удалить из массива максимальный элемент - 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.

Объяснение кода листинга программы

  1. Объявляется массив a размером 10 для хранения целых чисел.
  2. Объявляются переменные n, i, imx типа integer.
  3. Переменная n инициализируется значением 10.
  4. Выводится сообщение Исходный массив.
  5. Переменная imx инициализируется значением 1.
  6. В цикле от 1 до n происходит следующее:
    1. Элементу массива a[i] присваивается случайное число от 1 до 100.
    2. Если a[i] больше a[imx], то imx обновляется значением i.
    3. Элемент массива a[i] выводится на экран в 3-х знаках.
  7. После цикла выводится сообщение Максимальный элемент=, а затем выводится элемент массива a[imx] и сообщение его номер=.
  8. Если imx меньше n, то в цикле от imx до n-1 происходит следующее:
    1. Элементу массива a[i] присваивается значение a[i+1].
  9. Переменная n обновляется значением n-1.
  10. Выводится сообщение Удаление максимального.
  11. В цикле от 1 до n происходит следующее:
    1. Элемент массива a[i] выводится на экран в 3-х знаках.
  12. Программа ожидает ввода с клавиатуры.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы