ПАСКАЛЬ.
Дана матрица К (5 на 5). Найти минимальный размер элемента в строчке 4,и заменить этим значением все элементы главной диагонали.(элементы матрицы вводить с помощью клавиатуры или рандома).
Ответы
Ответ дал:
0
const
n=5;
var
a:array[1..n,1..n] of integer;
i,j,amin:integer;
begin
Randomize;
Writeln('Сгенерированный массив');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(50)+1;
Write(a[i,j]:3)
end;
Writeln
end;
amin:=a[4,1];
for j:=2 to n do
if amin>a[4,j] then amin:=a[4,j];
for i:=1 to n do a[i,i]:=amin;
Writeln('Результирующий массив');
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Сгенерированный массив
14 26 14 37 27
27 24 37 17 38
36 22 41 29 14
13 7 32 42 27
27 28 21 10 26
Результирующий массив
7 26 14 37 27
27 7 37 17 38
36 22 7 29 14
13 7 32 7 27
27 28 21 10 7
n=5;
var
a:array[1..n,1..n] of integer;
i,j,amin:integer;
begin
Randomize;
Writeln('Сгенерированный массив');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(50)+1;
Write(a[i,j]:3)
end;
Writeln
end;
amin:=a[4,1];
for j:=2 to n do
if amin>a[4,j] then amin:=a[4,j];
for i:=1 to n do a[i,i]:=amin;
Writeln('Результирующий массив');
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Сгенерированный массив
14 26 14 37 27
27 24 37 17 38
36 22 41 29 14
13 7 32 42 27
27 28 21 10 26
Результирующий массив
7 26 14 37 27
27 7 37 17 38
36 22 7 29 14
13 7 32 7 27
27 28 21 10 7
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад