zad
DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO
NONńMEOO.PńS = ZńD_12.PńS =
=[■] Zń|02jPńS —
clrscr; randomize; for i:=1 to n do for j:=l to n do tabti,j]:=random(191)+10; for i:=1 to n do for j:=l tu n do begin
if tabti,j]>max then begin
max:=tabCi,j];
x: = i; y:=j;
end;
i f C i mod 2 <>0) then suma:=suma+tab[i,j]; end;
uriteln('element max',max/zna jdu je sie na pozycji
uritelnC'suma:J,suma);
readln;
FI Heln F2 Saue F3 Onen ńlt+F9 ComDile F9 Make ńlt+FlO Local menu
Wyszukiwarka
Podobne podstrony:
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 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO 3 Fi 1 eJEdit^Se<^^ &
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