Question

Паскаль 1Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.2Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив. Помогите пожалуйста!​

Answer 1

Ответ:

PascalABC.NET

#1

begin

 var A := ArrRandom(12, -99, 99);

 A.Println;

 Println(A.Min + A.Max);

end.

#2

begin

 var A := Arr(1, 5, 25, 35, 45, 55, 105, 0, 2, 10);

 var m := A.Where(p -> p mod 10 = 5).Min;

 for var index := 0 to A.Length-1 do begin

   if A[index] > 50 then A[index] := m;

 end;

 A.Println;

end.

Объяснение:

Answer 2

Для решения задачи находжения суммы минимального и максимального элементов массива из 10 элементов в Паскале, вы можете использовать следующий код:

pascalCopy code
program MinMaxSum;
const
  N = 10;
var
  arr: array[1..N] of Integer;
  i, minVal, maxVal, sum: Integer;
begin
  { Заполняем массив значениями }
  arr[1] := 1;
  arr[2] := 5;
  arr[3] := 25;
  arr[4] := 35;
  arr[5] := 45;
  arr[6] := 55;
  arr[7] := 105;
  arr[8] := 0;
  arr[9] := 2;
  arr[10] := 10;

  { Находим минимальное и максимальное значения }
  minVal := arr[1];
  maxVal := arr[1];

  for i := 2 to N do
  begin
    if arr[i] < minVal then
      minVal := arr[i];

    if arr[i] > maxVal then
      maxVal := arr[i];
  end;

  { Находим сумму минимального и максимального значений }
  sum := minVal + maxVal;
  writeln('Сумма минимального и максимального элементов: ', sum);
end.

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

pascalCopy code
program ReplaceWithMinEndingIn5;
const
  N = 10;
var
  arr: array[1..N] of Integer;
  i, minVal, newVal: Integer;
begin
  { Заполняем массив значениями }
  arr[1] := 1;
  arr[2] := 5;
  arr[3] := 25;
  arr[4] := 35;
  arr[5] := 45;
  arr[6] := 55;
  arr[7] := 105;
  arr[8] := 0;
  arr[9] := 2;
  arr[10] := 10;

  { Находим минимальное значение, оканчивающееся на 5 }
  minVal := MaxInt;

  for i := 1 to N do
  begin
    if (arr[i] mod 10 = 5) and (arr[i] < minVal) then
      minVal := arr[i];
  end;

  { Заменяем все элементы массива, большие 50, на минимальное значение, оканчивающееся на 5 }
  for i := 1 to N do
  begin
    if arr[i] > 50 then
      arr[i] := minVal;
  end;

  { Выводим новый массив }
  writeln('Новый массив: ');
  for i := 1 to N do
  begin
    write(arr[i], ' ');
  end;
  writeln;
end.

Оба этих программы помогут вам решить соответствующие задачи на языке Паскаль.