Задачка в паскале.В двумерном массиве G(7,5) поменять минимальный элемент 2 строки и максимальный элемент 5 столбца. В полученной матрице вычислить значение произведения элементов главной диагонали. Заменить значение третьего э...
Задачка в паскале.
В двумерном массиве G(7,5) поменять минимальный элемент 2 строки и максимальный элемент 5 столбца. В полученной матрице вычислить значение произведения элементов главной диагонали. Заменить значение третьего элемента в первой строке на значение произведения.
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 7;
m = 5;
var
a: array[1..n, 1..m] of integer;
min2_j, max5_i, i, j, p: integer;
c: char;
begin
min2_j := 1;
max5_i := 1;
for i := 1 to n do
begin
writeln;
for j := 1 to m do
begin
a[i, j] := random(50);
write(a[i, j]:n);
if(i = 2) and (a[2, min2_j] > a[i, j]) then
min2_j := j;
if (j = 5) and (a[max5_i, 5] < a[i, j]) then
max5_i := i;
end;
end;
i := a[2, min2_j];
a[2, min2_j] := a[max5_i, 5];
a[max5_i, 5] := i;
writeln;
p := 1;
for i := 1 to n do
begin
writeln;
for j := 1 to m do
begin
write(a[i, j]:n);
if(i = j) then
p := p * a[i, j];
end;
end;
a[1, 3] := p;
writeln;
for i := 1 to n do
begin
writeln;
for j := 1 to m do
write(a[i, j]:n);
end;
end.
Не нашли ответ?
Похожие вопросы