Дан массив, состоящий из 15-ти целых чисел, отыскать мало из их

Дан массив, состоящий из 15-ти целых чисел, отыскать мало из их и поменять его на сумму первого элемента и заключительного.

Задать свой вопрос
1 ответ

var

 A: array [1..15] of Integer;

 i, Amin, Ai: Integer;

begin

 WriteLn ('Массив:');

 Randomize;

 for i := Low (A) to High (A) do begin

   A [i] := Random (100);          // наполнение массива случайными значениями

   Write (A [i], ' ');             // вывод для просмотра

 end;

 Amin := A [Low (A)];              // минимальное значение возьмем из первого элемента массива

 Ai := Low (A);                    // индекс малого значения = 1

 for i := Low (A) + 1 to High (A) do begin  // цикл со второго элемента массива до заключительного

   if A [i] lt; Amin then begin               // если найден элемент меньше малого

     Amin := A [i];                         // изменяем его значение

     Ai := i;                               // и бережём номер

   end;

 end;

 Writeln;

 Writeln ('Минимальный элемент ', Ai, ' равный ', A [Ai]);  // выводим малый элемент на просмотр

 A [Ai] := A [Low (A)] + A [High (A)];                        // изменяем на сумму первого и заключительного

 Writeln ('Заменен на значение = ', A [Ai]);                  // и его новое значение на просмотр

end.


Николай
без команды randomize
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт