Поменять местами максимальный и последний элемент — Pascal(Паскаль)

uses crt;

var
  i, max, num, size: integer;
  a: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  FOR i := 1 TO size do
  begin
    clrscr;
    writeln('Введите элементы массива');
    readln(a[i])
  end;
  max := a[1];
  clrscr;
  writeln('Введенный массив');
  FOR i := 1 TO size do
  begin
    writeln(a[i]);
    IF a[i] > max THEN
    begin
      num := i;
      max := a[i];
    end;
  end;
  a[num] := a[size];
  a[size] := max;
  writeln('Массив, где max и последний элемент поменяли местами');
  FOR i := 1 TO size do
  begin
    writeln(a[i]);
  end;

end.

Leave a Comment