Первым на печать вывести массив, содержащий наибольшее значение - Pascal ABC

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

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

Заданы два массива A(N),B(M).Первый на печать вывести массив,содержащий наибольшее значение.Напечатать также это значение и его индекс.В паскале.

Решение задачи: «Первым на печать вывести массив, содержащий наибольшее значение»

textual
Листинг программы
type
    TLine = Array[Byte] Of ShortInt;
procedure PrintArray(const a: TLine; const n: Byte; const c: Char);
var
    i: Byte;
begin
    Write('Array ', c, ':');
    for i := 0 to n - 1 do
        Write(a[i]:4);
    WriteLn;
end;
 
var
    i, n, m, aMax, bMax: Byte;
    a, b: Array[Byte] Of ShortInt;
begin
    Randomize;
    Write('Input n (1..255): '); ReadLn(n);
    aMax := 0;
    for i := 0 to n - 1 do
    begin
        a[i] := Random(199) - 99;
        if (a[i] > a[aMax])
        then
            aMax := i;
    end;
    Write('Input m (1..255): '); ReadLn(m);
    bMax := 0;
    for i := 0 to m - 1 do
    begin
        b[i] := Random(199) - 99;
        if (b[i] > b[bMax])
        then
            bMax := i;
    end;
    if (a[aMax] > b[bMax])
    then
    begin
        PrintArray(a, n, 'A');
        PrintArray(b, m, 'B');
        WriteLn; WriteLn('max: A[', aMax + 1, ']=', a[aMax]);
    end
    else
    begin
        PrintArray(b, m, 'B');
        PrintArray(a, n, 'A');
        WriteLn; WriteLn('max: B[', bMax + 1, ']=', b[bMax]);
    end;
end.

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

  1. Создается тип данных TLine, который представляет собой массив, содержащий наибольшее значение.
  2. Создается процедура PrintArray, которая принимает на вход массив, его размерность и символ для вывода на экран. Внутри процедуры происходит вывод элементов массива на экран с помощью функции Write.
  3. Создаются две переменные i, n и m, которые будут использоваться для итерации по массивам a и b.
  4. Создаются два массива a и b, которые будут представлять собой случайные числа от 0 до 99.
  5. Используя цикл for, заполняются значениями массивы a и b.
  6. Вычисляется максимальное значение в массиве a или b, используя условный оператор if.
  7. Если максимальное значение находится в массиве a, то выводится на экран массив a, его размерность и значение максимального элемента. Также выводится на экран сообщение о том, что максимальное значение находится в массиве a.
  8. Если максимальное значение находится в массиве b, то выводится на экран массив b, его размерность и значение максимального элемента. Также выводится на экран сообщение о том, что максимальное значение находится в массиве b.
  9. Если максимальное значение находится в массиве a, то выводится на экран массив b, его размерность и значение максимального элемента. Также выводится на экран сообщение о том, что максимальное значение находится в массиве b.

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

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