Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu témák
-
IT café
Új hozzászólás Aktív témák
-
timo92
csendes tag
program lottosz;
uses crt;
var
a,x,i,j,w : integer;
szam : array[1..5] of integer;
begin
clrscr;
writeln('Kerem az 52. heti nyeroszamokat: ');
for x:=1 to 5 do
begin
read(szam[j]);
write(' ');
end;
for i:=1 to 5 do
for j:=1 to i+1 do
if(szam[j] > szam[j+1] )then
begin
w := szam[j];
szam[j] := szam[j+1];
szam[j+1] := w;
end;
for i:=1 to 5 do
begin
write(szam[j]);
i:=i+1;
j:=j+1;
end;
end.a lottósnál eddig jutottam.... a másik az semmi...
Új hozzászólás Aktív témák
Téma tudnivalók
● olvasd el a téma összefoglalót!
Aktív témák
Új prémium hirdetések