zad 9
DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO
File Edit Search Run Compile Debug Tools Options Uindów Help
ZAD_3.PAS
=[■]
{zad 9> const n=10;
tab:arraytl..n,l..101 of integer; i,j,suma:integer; in
randomize; for i:=1 to n do for j:=1 to n do tabli,jl:=random(ll); for i:=1 to n do for j:=l to n do
if (n-i+l)Oj then suma:=suma+tab[i,jl; writeln(suma);
writeln('Suma wynosi", suma); readln:
Wyszukiwarka
Podobne podstrony:
zad 6 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Cowpile
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
zad File Edit Search Run Compile Debug Tools Options Uindów Help rli]
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.
więcej podobnych podstron