Напишите код нахождения минимального элемента под не главной диагональю в квадратной матрице.
10-11 класс
|
Язык программирования Pascal/Basic .
Забавная задача.
Массив[1..10,1..10] из чисел 10..99(для удобства вывода).
Выводит:
Исходный массив,
Числа под побочной диагональю,
минимальное число под побочной диагональю.
program test;
uses crt;
const
n=10;
var
arr:array[1..10,1..10] of integer;
i,j,min:integer;
begin
randomize;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
arr[i,j]:=random(90)+10;
write(arr[i,j],' ');
end;
writeln;
end;
writeln;
min:=arr[n-n+2,n];
for i:=1 to n do
begin
for j:=1 to n do
if i>n+1-j then
begin
if arr[i,j]<min then min:=arr[i,j];
write(arr[i,j],' ');
end
else write('** ');
writeln;
end;
writeln;
writeln(min);
end.
Другие вопросы из категории
2даны основания и высота равнобедренной трапеции найти ее периметр
3дано расстояние в сантиметрах найти число полных метров в нем
Читайте также
диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
Составить программу по нахождению минимального элемента массива и определить его местонахождение в массиве.
Составить программу, по нахождению минимального элемента в двойном массиве.
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали