Mark1992
Новичок
|
     
Дана матрица 10Х10, значении задаются случайным образом в диапазоне -128 до 127. Найти max и min в матрице и разделить их на сумму тех строк в которых они лежал.
Ну значит я разобрался с матрицей и написал код программы для её выведения с поиском минимума и максимума. А сейчас нужно правильно вставит randome и деление на сумму минимума и максимума. Как правильно это сделать ?
Вот код программы:
Program Z;
USES
CRT;
CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..10,1..10] of Real;
i,j:integer;
max_stroka,max_stolbec,min_stroka,min_stolbec:integer;
BEGIN
Writeln('Vvedite znachenii matrix А:');
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
Read(A[i,j]);
max_stroka:=1;
max_stolbec:=1;
min_stroka:=1;
min_stolbec:=1;
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
begin
if A[i,j]>A[max_stroka,max_stolbec] then
begin
max_stroka:=i;
max_stolbec:=j;
end;
if A[min_stroka,min_stolbec]>A[i,j] then
begin
min_stroka:=i;
min_stolbec:=j;
end;
end;
ClrScr;
Writeln('Matrix А:');
for i:=1 to kol_strok do
begin
for j:=1 to kol_stolbcov do
Write(A[i,j]:4:2,' ');
Writeln;
end;
Writeln;
Writeln('Max aliment A[',max_stroka,';',max_stolbec,'] = ',A[max_stroka,max_stolbec]:4:2);
Writeln('Min aliment A[',min_stroka,';',min_stolbec,'] = ',A[min_stroka,min_stolbec]:4:2);
Readln;
end.
Заранее спасибо !
|
Форум
Нужна помощь в разборе задачи !
