Тема

Составление и отладка программы обработки двумерного массива.

Задание

По индивидуальному заданию составить и отладить программу сложного циклического процесса с матрицами. В программе предусмотреть вывод исходного и полученного двумерных массивов в виде матрицы. Найти сумму максимальных элементов каждой строки матрицы.

Алгоритм

Сначала выясняем с помощью цикла максимальный элемент каждой строки. Затем суммируем их.

Контрольный пример

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

После ручной перепроверки видно, что программа работает согласно поставленному перед ней алгоритму.

Распечатка программы

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var ar:array[1..2,1..5] of integer;

n,max1,max2,sum:integer;

begin

ar[1,1]:=5;

ar[1,2]:=2;

ar[1,3]:=51;

ar[1,4]:=45;

ar[1,5]:=15;

ar[2,1]:=4;

ar[2,2]:=-5;

ar[2,3]:=9;

ar[2,4]:=17;

ar[2,5]:=42;

max1:=ar[1,1];

for n:=2 to 5 do

begin

if ar[1,n]>max1 then max1:=ar[1,n];

end;

max2:=ar[2,1];

for n:=2 to 5 do

begin

if ar[2,n]>max2 then max2:=ar[2,n];

end;

sum:=max1+max2;

writeln('Sum = ',sum);

read(n);

end.

Распечатка исходных данных

ar[1,1]=5;

ar[1,2]=2;

ar[1,3]=51;

ar[1,4]=45;

ar[1,5]=15;

ar[2,1]=4;

ar[2,2]=-5;

ar[2,3]=9;

ar[2,4]=17;

ar[2,5]=42.

Распечатка результатов

Sum=93.