дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали.(Паскаль)
10-11 класс
|
const
n = 5; // Размер матрицы
var
i, e, r: Integer;
m : array [1..n, 1..n] of Integer;
begin
for i:= 1 to n do
for e:= 1 to n do
begin
//m[i, e] := Random(101) - 50; // Заполнение случайными числами
Write('m[',i,',',e,'] = '); Readln(m[i, e]); // Ручной ввод матрицы
end;
r := n;
for i := 1 to n do
begin
if m[i, r] >= 0 then
Write(m[i, r], ' ');
dec(r);
end;
Readln;
end.
Другие вопросы из категории
Читайте также
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel и скинуть сюда документом
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel
порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.