Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Задача 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
Блок – схема алгоритма решения задачи
c2 a[i, j]
J = 1, n
i = 1, m
c2 m, n