zad
DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO
3 Fi 1 eJEdit^Se<^^ Debug Tools^Ojgtj^
=[■]=—
{zad 13> const n=10;
ZAD_13.PAS
tab:arraytl..n,l..ni of integer; i,j,sana,ilosc:integer; begin randomize; for i:=1 to n do for i:=1 to n do tabti,j]:=random(21)+10; for i:=1 to n do if j mod 2=0 then for i:=1 to n do if i mod 2 <>0 then begin suma:=suma+tab[i,j]; ilosc:=ilosc+l; end;
writeln("ilosc liczb nieparzystych w wierszach parzystych",ilosc); writeln ("suma tych liczb:", suma); readln; end .h
— 21:7
FI Help F2 Saue F3 Open Alt+F9 Ćompile F9 Make Alt+FlÓ Local menu
Wyszukiwarka
Podobne podstrony:
zad DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO NONńMEOO.PńS
zad 4 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit S
zad 6 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Cowpile
zad 9 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Compile
zad HH DOSBox 0.74. Cpu speed: 3000 cycles, Frameskip 0, Program: TURB(^^ ^ w=mw> File Edit Sea
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