НУЖНА ПОМОЩЬ ПО ИНФОРМАТИКЕЗадать массив из 8 элементов. Найти величайший элемент

НУЖНА ПОМОЩЬ ПО ИНФОРМАТИКЕ
Задать массив из 8 элементов. Отыскать наибольший элемент массива и отсортировать по убыванию (Программка паскаль)

Задать свой вопрос
1 ответ
Const
  n = 8;

var
  a: array[1..n]of integer;
  i, j, k, max: integer;

begin
  max := -MaxInt;
  for i := 1 to n do
  begin
    write('a[', i, ']= ');
    readln(a[i]);
    if a[i] gt; max then max := a[i];
  end;
  writeln(' наибольший элемент массива = ', max);
  //сортировка способом пузырька
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] lt; a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k
      end;
  //вывод массива
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
a[1]= 12
a[2]= 4
a[3]= 6
a[4]= 23
a[5]= 4
a[6]= 7
a[7]= 8
a[8]= 1
 максимальный элемент массива = 23
  23  12   8   7   6   4   4   1

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт