zad 6

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

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

Wyszukiwarka

Podobne podstrony:
zad 9 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Compile
zad 4 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: TURBO File Edit S
zad HH DOSBox 0.74. Cpu speed: 3000 cycles, Frameskip 0, Program: TURB(^^ ^ w=mw> File Edit Sea
zad DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: TURBO NONńMEOO.PńS
zad DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO 3 Fi 1 eJEdit^Se<^^  &
kr2 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program:   &n
kr5 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: Plik
kr6 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: Plik □ Edycja
belka13 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: Plik
belka18 cos cox DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: Plik
belka20 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: Wartość momentu
belka24 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: Plik □ Edycja
belka4 --Uń.h..n-,--LlAAiLfl- H DOSBox 0.74. Cpu speed: 3000 cycles, Frameskip 0. Program: SETT m£
belka9 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program:    SETT Plik
kr1 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0,
kr12 DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0,
kr23 l$Sfj DOSBox 0.74. Cpu speed:    3000 cycles, Frameskip 0.
kr8 DOS DOX DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0,

więcej podobnych podstron