//Задание 4.15 Кучеренко
const m = 4;
Begin
var
n: integer;
var
T: array[0..100,0..100] of integer;
write('Vvedite n: ');
readln(n);
writeln('Vvedite dannie v massive T(', m, ',', n, '):');
var i, j: integer;
for i := 0 to m-1 do
begin
for j := 0 to n-2 do
read(T[i][j]);
readln(T[i][n-1]);
end;
var max: integer;
if m > n then
max := m
else max := n;
var maxPositive: integer;
maxPositive := 0;
for i := 0 to max do
if T[i][i] > 0 then
if T[i][i] > maxPositive then
maxPositive := T[i][i];
writeln('Naibolshij polozhitelnij element glavnoj diagonali = ', maxPositive);
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎