|
Дата публикации:
Информатика хз помогите умоляю на паскале через блок схемы.
Информатика хз помогите умоляю на паскале через блок схемы.
Вот пример программы на языке Паскаль, которая реализует описанную задачу:
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.
Программа сначала заполняет двумерный массив случайными числами, затем выводит его на экран. Затем она проходит по каждой строке массива снизу вверх и находит максимальный и минимальный элементы каждой строки. После этого программа выводит на экран сумму максимального и минимального элементов каждой строки.