ө ұ : ң ә ә
ұ қ ө ұң . ұң қ қ.
ұ қ: ң ә қ ұ қ қ қ ғ.
ң қ ұ
ұ ң ң ң ң қ ұ . ұ , ң , , , қғ ң ң қ, . ә n-1 - ғ. ү:
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c
end;
1-. қ ұ . ғ, ә қ ұ қ.
ʳ ә
INPUT.TXT ң қ N ү (1 ≤ N ≤ 100), N қ N қ ғ. Ә қ ү ү ғ (0..23 ғ), (0..59 ғ) ә (0..59 ғ) .
ғ ә
OUTPUT.TXT ғ қ ө ұ ғң (ғ ң қ 0- ).
| INPUT.TXT | OUTPUT.TXT | |
| 10 20 30 7 30 00 23 59 59 13 30 30 | 7 30 0 10 20 30 13 30 30 23 59 59 |
// ң қ ұ қ
var i,ch,m,s,n:integer;
ms:array[1..100] of longint;
procedure sort;
var j,i,mem:longint;
begin
for i:=1 to n-1 do
for j:=1 to n-1 do
if ms[j]>ms[j+1]then
begin
mem:=ms[j];
ms[j]:=ms[j+1];
ms[j+1]:=mem;
end;
end;
//
begin
assign(input,'INPUT.TXT'); reset(input);
assign(output,'OUTPUT.TXT');rewrite(output);
readln(n);
for i:=1 to n do
begin
readln(ch,m,s);
ms[i]:=ch*3600+m*60+s;
end;
sort;
for i:=1 to n do
begin
ch:=ms[i] div 3600;
m:=ms[i] mod 3600;
s:=m mod 60;
m:=m div 60;
writeln(ch,' ',m,' ',s)
end;
close(input);
close(output);
end.
қ ұ
2-. ғ қ , қ ң ә ө -100..100 ғ қ . ң ғң N ү қғ қ . Ө , қғ ә ү қ , қ ү ғ өң қ . ғ ғ ә ө ү ө ү қғ ѳң өң қ. ѳ үң (ө) ә ұң .
|
|
|
: ү ұғ ғ, қ, қғ, ө қ қ ө. қ ң ү ғ . ғ, 1000000 ұ қ , қ қ ұ әң қ ү. , қ ұ (DigitalSort) ә ң қ ғ құғ ү :
ң қ ә ғқ, ү қ : ғ ң ә қғ әң қ қ , ғ қғ inc(d[a[i]]) . , d ң ә қ.
d қғ ң -100..100 ғ ә d[i] ғ ғ ғ.
{қ ұ қ}
var a:array[1..1000000] of integer;
d:array[-100..100] of integer;
i,n,j,k:integer;
begin
{assign(input,'input.txt');
assign(output,'output.txt');
reset(input); rewrite(output);}
read(n);
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
inc(d[a[i]]);
end; writeln;
for i:=-100 to 100 do
writeln(i,' ',d[i]);
for i:=-100 to 100 do
for j:=1 to d[i] do
write(p,i,' ');
{close(input); close(output);}
end.
ү, ә ұ ә қ ғ - . ғң қ ә ң.
// ұ қ
var
i,n:longint;
buf, X:extended;
a:array[1..1000000]of extended;
procedure Sort(L,R:Longint);
var j:longint;
begin
i:=L; j:=R; X:=a[(i+j)shr 1];
repeat
while a[i]<X do inc(i);
while a[j]>X do dec(j);
if i<=j then begin
buf:=a[i]; a[i]:=a[j]; a[j]:=buf;
inc(i); dec(j);
end;
until i>j;
if i<R then Sort(i,R);
if j>L then Sort(L,j);
end;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
read(input,n);
for i:=1 to n do read(input,a[i]);
sort(1,n);
for i:=1 to n do write(output,a[i]:0:0,' ');
close(output);
close(input);
end.
|
|
|
ұқ.
ң ұң қ ?
қ ұ ә ң қ ң ә қң?
ә ә ұ. ң әқ ө қ , ә ә .
ұ , ғ ө , құ ұ .
ө ә ө , .
ө өң ә (ә ө ә ) қ.
