Ответы на вопрос:
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.
Популярно: Информатика
-
Kroher29.11.2021 22:14
-
маруська6221.01.2023 05:16
-
sbornyakovap08xiv24.04.2020 14:15
-
vladmakarchuk8009.05.2020 13:52
-
666666ник03.02.2022 21:38
-
sapronovakaty21.09.2021 18:04
-
mani0909127.04.2021 01:47
-
24j18g81B07.09.2022 22:36
-
kirillshok10.11.2021 02:39
-
Mishgan2120.04.2020 18:48