Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам)

Решение задачи: «Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива»

textual
Листинг программы
var x:array[1..100] of integer;
    n,i,imn,a:integer;
begin
randomize;
repeat
write('Размер массива X от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Массив X');
imn:=1;
for i:=1 to n do
 begin
  x[i]:=-10+random(21);
  write(x[i]:4);
  if i mod 20=0 then writeln;
  if x[i]<x[imn] then imn:=i;
 end;
writeln;
writeln('Минимальный элемет=',x[imn],' его индекс=',imn);
a:=-x[imn];
if imn<n then
 begin
  for i:=imn to n-1 do
  x[i]:=x[i+1];
  x[n]:=a;
 end;
writeln('Перестановки минимального с обратным знаком в конец массива');
for i:=1 to n do
 begin
  write(x[i]:4);
  if i mod 20=0 then writeln;
 end;
end.

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

  1. Создается переменная x типа array[1..100] of integer.
  2. Задается начальное значение для переменной n равное 2.
  3. Выполняется цикл repeat, который продолжается до тех пор, пока n не будет варьироваться от 2 до 100.
  4. Внутри цикла выводится сообщение о размере массива X и его содержимом.
  5. Задается переменная imn равной 1.
  6. Запускается цикл for, который выполняется от 1 до n.
  7. Внутри цикла вычисляется значение x[i] как -10 + random(21).
  8. Выводится значение x[i] с префиксом 4.
  9. Если i делится на 20, то выводится символ новой строки.
  10. Если x[i] меньше x[imn], то imn обновляется значением i.
  11. После завершения цикла for, выводится сообщение о минимальном элементе и его индексе.
  12. Вычисляется значение a как -x[imn].
  13. Если imn меньше n, то запускается вложенный цикл for, который перемещает все элементы массива x с imn+1 до n-1 в конец массива.
  14. Значение x[n] обновляется как a.
  15. Выводится сообщение о перестановке минимального элемента с обратным знаком в конец массива.
  16. Для каждого элемента массива x от 1 до n выводится его значение с префиксом 4.
  17. Если i делится на 20, то выводится символ новой строки.

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

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