Задача 4.

Дана действительная матрица А размера m x n. Найти разности наибольших и наименьших элементов каждой строки матрицы А. Написать программу и составить блок-схему алгоритма.

Программа

Program zadacha_4;

const

p=100;

var

a :array [1..p,1..p] of integer; {исходная матрица}

n ,m :integer;{размеры матрицы}

i , j :integer;{счетчики циклов}

max :integer;{максимальный элемент строки}

min :integer;{минимальный элемент строки}

razn :integer;{разность максимального и минимального элементов}

begin

write (‘m=’); readln (m);

write (‘n=’); readln (n);

writeln (‘Матрица’);

for i:=1 to m do

begin

for j:=1 to n do read (a[i,j]);

end;

writeln (‘Разность наибольшего и наименьшего элементов’);

for i:=1 to m do

begin

min :=a[i,1];

max :=a[i,1];

for j:=1 to n do

begin

if a[i,j]<min then min:=a[i,j];

if a[i,j]>max then max:=a[i,j];

end;

razn:=max-min;

writeln(‘для ‘,i:3,’-й строки равна ‘, razn:5);

end;

readln;

end.

Пример расчета

m = 4

n = 7

Матрица А:

5	23	-3	8	9	15	-26
7	19	13	-1	8	6	74
-8	65	87	3	1	9	5
77	96	4	5	8	3	7

Разность наибольшего и наименьшего элементов

для 1 – й строки равна 49

для 2 – й строки равна 75

для 3 – й строки равна 95

для 4 – й строки равна 93

Блок – схема алгоритма решения задачи

Да

Нет

Да

Нет