zad 6

DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO

File Edit Search Run Cowpile Debug Tools Ojptions Uindów Help

[■]——

{zad 6> uses crt; const n=5;

ZAD_6.PAS

i,j, suma:integer;

tab:arrayll.,n,l..ni of integer;

begin

clrscr;

randomize;

for i:=1 to n do

begin

for j:=l to n do begin

tab[i,j1:=random(10); urite(tab[i,j], ''); end;

writeln; end;

writeln;

for i:=1 to n do begin

writeCtabCi,j]_# ''); suma:=suna+tab C i,j 3; end;

writeln;

writelnC'suma elementów pod przekątną z ta przekątną to',suma);

readln;

end.

-- 28:6

FI Help F2 Saue F3 Open Alt+F9 Compile FS Make Alt+FlO Local menu