Question

Найти сумму максимального и минимального элементов массива.Нужно описать массив в Delphi 7!

Answer 1

Program maxmin;
const  N = 50;
var
  arr : array [1..N] of integer;
  i : integer;
  min, max : real;
begin
Writeln('Массив: ');
Randomize;
for i := 1 to N do
  begin
  arr[i] := random(100);
  write(arr[i], ' ');
  end;
max := arr[1]; min := arr[1];
for i := 1 to N do
  begin
  if min > arr[i] then min := arr[i];
  if max < arr[i] then max := arr[i];
  end; 
Writeln('Сумма = ', min+max); 
end.

Answer 2

Для нахождения суммы максимального и минимального элементов массива в Delphi 7 необходимо выполнить следующие шаги:

1. Объявить массив и заполнить его значениями. Например, можно объявить массив целых чисел следующим образом:

var
  arr: array[1..10] of Integer;

2. Заполнить массив значениями. Например, можно заполнить массив случайными числами от 1 до 100 следующим образом:

var
  i: Integer;
begin
  Randomize;
  for i := 1 to 10 do
    arr[i] := Random(100) + 1;
end;

3. Найти максимальный и минимальный элементы массива. Для этого можно использовать цикл и переменные для хранения максимального и минимального значений:

var
  i, min, max: Integer;
begin
  min := arr[1]; // Предполагаем, что первый элемент массива является минимальным
  max := arr[1]; // Предполагаем, что первый элемент массива является максимальным

for i := 2 to 10 do
  begin
    if arr[i] < min then
      min := arr[i]; // Если текущий элемент меньше текущего минимального, обновляем значение минимального элемента
    if arr[i] > max then
      max := arr[i]; // Если текущий элемент больше текущего максимального, обновляем значение максимального элемента
  end;

// Выводим на экран найденные максимальный и минимальный элементы
  ShowMessage('Максимальный элемент: ' + IntToStr(max));
  ShowMessage('Минимальный элемент: ' + IntToStr(min));

// Находим сумму максимального и минимального элементов
  ShowMessage('Сумма максимального и минимального элементов: ' + IntToStr(max + min));
end;

Таким образом, мы объявляем массив, заполняем его значениями, находим максимальный и минимальный элементы, выводим их на экран и находим их сумму.