Question

Составьте программу нахождения наименьшего и наибольшего элементов одномерных массивов A(N), B(N) из числа принадлежащих отрезку (C,D) Язык PascalABC

Answer 1

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

begin

 var n := ReadInteger('n =');

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

 A.Println;

 var B := ArrRandom(n, -99, 99);

 B.Println;

 var s := (A + B).AsEnumerable;

 Write('Min = ', s.Min, ', max = ', s.Max)

end.

Answer 2

Конечно, вот программа на языке PascalABC, которая находит наименьший и наибольший элементы одномерных массивов A(N) и B(N), принадлежащих отрезку (C, D):

pascalCopy code
program MinMaxElements;

const
  N = 10; // Размер массивов
  C = 5;  // Левая граница отрезка
  D = 15; // Правая граница отрезка

type
  TArray = array[1..N] of Integer;

var
  A, B: TArray;
  i: Integer;
  minA, maxA, minB, maxB: Integer;

procedure FindMinMaxElements(const arr: TArray; var min, max: Integer);
var
  i: Integer;
begin
  min := arr[1];
  max := arr[1];

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

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

begin
  // Заполняем массивы A и B значениями (это можно делать любым способом)
  for i := 1 to N do
  begin
    A[i] := Random(20); // Генерируем случайное число от 0 до 19 для массива A
    B[i] := Random(20); // Генерируем случайное число от 0 до 19 для массива B
  end;

  // Находим наименьший и наибольший элементы для массива A
  FindMinMaxElements(A, minA, maxA);

  // Находим наименьший и наибольший элементы для массива B
  FindMinMaxElements(B, minB, maxB);

  // Выводим результаты
  WriteLn('Массив A:');
  for i := 1 to N do
    Write(A[i], ' ');
  WriteLn;
  WriteLn('Наименьший элемент массива A: ', minA);
  WriteLn('Наибольший элемент массива A: ', maxA);

  WriteLn('Массив B:');
  for i := 1 to N do
    Write(B[i], ' ');
  WriteLn;
  WriteLn('Наименьший элемент массива B: ', minB);
  WriteLn('Наибольший элемент массива B: ', maxB);

end.

Эта программа создает два одномерных массива A и B размера N и заполняет их случайными числами от 0 до 19. Затем она находит наименьший и наибольший элементы для каждого массива, принадлежащих отрезку (C, D), и выводит результаты на экран.