Информатика хз помогите умоляю на паскале через блок схемы.



Дата публикации:

Информатика хз помогите умоляю на паскале через блок схемы.


Информатика хз помогите умоляю на паскале через блок схемы.

Вот пример программы на языке Паскаль, которая реализует описанную задачу:

program MaxMinSum;

const
  n = 3; // количество строк
  m = 4; // количество столбцов

var
  arr: array[1..n, 1..m] of integer; // двумерный массив
  i, j: integer; // переменные для циклов
  max, min, sum: integer; // переменные для максимального, минимального и суммы элементов

begin
  // заполняем массив случайными числами
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      arr[i, j] := random(100); // случайное число от 0 до 99

  // выводим массив на экран
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(arr[i, j], ' ');
    writeln;
  end;

  // находим и выводим сумму максимального и минимального элементов каждой строки
  for i := n downto 1 do
  begin
    max := arr[i, 1]; // предполагаем, что первый элемент строки - максимальный
    min := arr[i, 1]; // предполагаем, что первый элемент строки - минимальный
    for j := 2 to m do
    begin
      if arr[i, j] > max then
        max := arr[i, j]; // обновляем максимальный элемент
      if arr[i, j] < min then
        min := arr[i, j]; // обновляем минимальный элемент
    end;
    sum := max + min; // сумма максимального и минимального элементов
    writeln('Сумма максимального и минимального элементов строки ', i, ': ', sum);
  end;
end.

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