Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Опять паскаль, в этот раз легче (https://forum.antichat.xyz/showthread.php?t=40694)

rubik-nerubik 23.05.2007 17:00
Опять паскаль, в этот раз легче
 
привет всем нужно решить задачу, ту не смог, выбрал другую, которая легче, наверное вот условие, выручайте наконец....
"Дана действительная квадратная матрица порядка А. Найти и вывести на печать наибольший среди элементов, расположенных ниже побочной диагонали"

вот.... только без наворотов плиз))) а то мне ещё объяснять)

rubik-nerubik 23.05.2007 17:43
вот вроде сама задача, но она не пашет подредите плз:
Код:
uses crt;
var
a:array[1..100,1..100] of integer;
i,j,k,n,max,m:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
for k:=1 to k do
read(a[i,k]);
writeln;
max:=a[n,2]; m:=1;

for i:=n downto 2 do begin
m:=m+1;
for k:= m to n do
if a[i,k]> max then max:=a[i,k];
end;
writeln(max);
end.

NetMan 27.05.2007 00:57
Затесть мой код =)
Код:
uses crt;
var
        a:array[1..100,1..100] of integer;
        i,j,n,max,m:integer;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do begin
        for j:=1 to n do begin
          gotoxy(j*4,i+1);
          read(a[i,j]);
        end;
writeln;
end;

max:=a[2,n]; m:=0;

for i:=2 to n do begin
        for j:=n downto n-m do
        if a[i,j]>max then max:=a[i,j];
 inc(m);
end;
write('Max=',max);
readln;
end.


Время: 10:44