Заменить первый элемент одномерного массива суммой максимального и минимального элементов - Turbo Pascal

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

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

Дан одномерный массив с числом элементов n<20. Заменить первый элемент этого одномерного массива суммой максимального и минимального элементов. Заранее спасибо =)

Решение задачи: «Заменить первый элемент одномерного массива суммой максимального и минимального элементов»

textual
Листинг программы
var
  a:array[1..20] of integer;
  i,mina,maxa,n:integer;
begin
  randomize;
  write('N=');readln(n);
  for i:=1 to n do begin
    read(a[i]);
    if (i=1) or (maxa<a[i]) then maxa:=a[i];
    if (i=1) or (mina>a[i]) then mina:=a[i];
  end;
  a[1]:=mina+maxa;
  for i:=1 to n do write(a[i],' ');
end.

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

  1. В начале объявляются переменные:
    • a:array[1..20] of integer;
    • i, mina, maxa, n:integer;
  2. Затем выполняется инициализация генератора случайных чисел и выводится запрос на ввод числа элементов массива:
    • randomize;
    • write('N=');
    • readln(n);
  3. Далее происходит цикл, который считывает элементы массива и обновляет максимальное и минимальное значения:
    • for i := 1 to n do begin
      • read(a[i]);
      • if (i = 1) or (maxa < a[i]) then maxa := a[i];
      • if (i = 1) or (mina > a[i]) then mina := a[i]; end;
  4. После этого обновленный первый элемент массива заменяется суммой максимального и минимального значений:
    • a[1] := mina + maxa;
  5. И, наконец, выводятся все элементы массива:
    • for i := 1 to n do write(a[i], ' '); Обратите внимание, что в данном коде используется только один вложенный цикл.

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

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