Cytuj:
program tab_2w;
uses CRT;
var
t:array[1..50,1..50] of integer;
i,j,n,b,suma,suma1:integer;
begin
clrscr;
textcolor(7);
writeln(' ษอออออออออออออออออออออออออออออออออออออออออออออออออ ป');
writeln(' บ PROGRAM - TABLICE บ');
writeln(' ศอออออออออออออออออออออออออออออออออออออออออออออออออ ผ');
textcolor(6);
randomize;
gotoxy(30,5);
write('Podaj stopieไ tablicy: '); textcolor(14); read(n);
for i:=1 to n do
for j:=1 to n do
t[i,j]:=random(1001);
writeln;
textcolor(2);
writeln('Tablica z wylosowanymi liczbami:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if (i=n+1-j) then suma:=suma+t[i,j];
if (i=j) then suma1:=suma1+t[i,j];
write(t[i,j]:4);
end; end;
writeln; writeln;
writeln('Suma przekฅtnej 1: ' ,suma1);
writeln('Suma przekฅtnej 2: ' ,suma);
repeat until keypressed
end.
