Предмет: Информатика,
автор: erke999000
Помогите пожалуйста.Дана матрица 5 на 5. Найти наименьшее из значений элементов побочной диагонали и двух соседних с ней линий ( Pascal ABC ).
Ответы
Автор ответа:
0
var
A: array[1 .. 5,1 .. 5] of integer;
i, j, n, min: integer;
begin
randomize;
n := 5;
writeln('Случайная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=Random(51)-25;
write(A[i,j]:4);
end;
writeln;
end;
//Верхняя
j := n;
min := A[1, n - 1];
for i := 1 to n - 1 do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней верхней диагонали: ',min);
//Побочная
j := n + 1;
min := A[1, n];
for i := 1 to n do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент побочной диагонали: ',min);
//Нижняя
j := n + 1;
min := A[2, n];
for i := 2 to n do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней нижней диагонали: ',min);
end.
A: array[1 .. 5,1 .. 5] of integer;
i, j, n, min: integer;
begin
randomize;
n := 5;
writeln('Случайная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=Random(51)-25;
write(A[i,j]:4);
end;
writeln;
end;
//Верхняя
j := n;
min := A[1, n - 1];
for i := 1 to n - 1 do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней верхней диагонали: ',min);
//Побочная
j := n + 1;
min := A[1, n];
for i := 1 to n do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент побочной диагонали: ',min);
//Нижняя
j := n + 1;
min := A[2, n];
for i := 2 to n do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней нижней диагонали: ',min);
end.
Приложения:

Автор ответа:
0
А нет прости
Автор ответа:
0
Сек
Автор ответа:
0
Не туда посмотрел
Автор ответа:
0
Все, поправил.
Автор ответа:
0
спасибо большое
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Ruuі
Предмет: География,
автор: Аноним
Предмет: История,
автор: elinanurlanova0505
Предмет: История,
автор: Adel2002
Предмет: Математика,
автор: olgavolkova84