Question

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

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var a := ArrRandom(10, -99, 99);

 a.Println;

 Println('Сумма минимального и максимального равна', a.Min + a.Max);

 // 2

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

 b.Println;

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

 b.Transform(p -> p > 50 ? m : p);

 b.Print

end.

Answer 2

Конечно, я помогу вам с решением задач на языке Паскаль! Вот решение для обеих задач:

1. Найти сумму минимального и максимального элементов в массиве из 10 элементов:

pascalCopy code
program MinMaxSum;
var
  arr: array[1..10] 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 10 do
  begin
    if arr[i] < minVal then
      minVal := arr[i];
    if arr[i] > maxVal then
      maxVal := arr[i];
  end;

  { Находим сумму минимального и максимального значений }
  sum := minVal + maxVal;

  { Выводим результат }
  WriteLn('Минимальное значение: ', minVal);
  WriteLn('Максимальное значение: ', maxVal);
  WriteLn('Сумма минимального и максимального значений: ', sum);
end.

2. Найти минимальное значение, оканчивающееся на 5, и заменить все элементы массива, большие 50, на это значение:

pascalCopy code
program MinValueAndReplace;
var
  arr: array[1..10] of Integer;
  i, minValEndingWith5: 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 }
  minValEndingWith5 := 100; { Больше максимального значения массива }
  for i := 1 to 10 do
  begin
    if (arr[i] mod 10 = 5) and (arr[i] < minValEndingWith5) then
      minValEndingWith5 := arr[i];
  end;

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

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

Вы можете скопировать код и вставить его в среду разработки Pascal (например, Free Pascal) для выполнения программы и получения результатов.