| Мәліметтерді енгізу форматы
Кіріс файлдың жекеше жолында үш бүтін сан жазылған: N, A және В (1<=N<=100000, 1<=B<=A<=N). Сандар аралары пробел арқылы бөлінген.
Мәліметтерді шығару форматы
Шығыс файлда бір бүтін сан жазылу керек.
10 сынып
Олимпиада есебінің жауабы
№1. Массивтің элементтерінің 1-ден 7-ге дейінгі қосындысын тап:
Программасы:
Program ma;
Const n=7;
Type m1=array [1…n] of real;
Var a:m1; k: integer; S: real;
begin
for k:=1 to n do
begin read (a[1,...7]);
end;
S:=ø
for k:=1 to n do
if a[k]>0 then S:=S+a[k];
Write (S);
End.
№2 Х және У массив элементтері кему ретімен орналасқан. Массив элементтерін бір Z массивіне қосып, оның элменттерінде кему ретілігімен орналстырып программа жаз.
Program F10_d1;
Const n=5;
Var x,y:array[1..n] of integer; z :array[1..2*n] of integer; I,j,k,m:integer;
Begin
For I:=1 to n do
Begin
Write(‘x,y элементінің нөмірін енгіз’, i); readln (x[i], y[i]);
end;
k:=0;
for i:=1 to n do
begin
k:=k+1; z[k]:=x[i];
k:=k+1; z[k]:=y[i];
End;
For i:=1 to n do
Begin
M=z[i]; k:=I;
For j:=I to n do if z[j]>m then begin m:=z[j]; k:=j end;
B:=z[i]; z[i]=z[k]; z[k]:=b
End;
For i:=1 to n do write(‘ ‘,z[i])
End.
№3 Жалқаулық.
Енгізу файлының аты: D.in
Шығару файылының аты: D. Out
Есептің жауабы файылының аты: D. pas
Уақыт шектеу: 2 секунд
Жадыға шектеу: 64 мегабайт
Оқытушы емтиханға дайындалуға үшін оқушыларына N сұрақтарды берді. Осы сұрақтардан ол емтиханға үшін А сұрақты таңдайды, ал оқушы, бесті алу үшін В сұрақты (бұларды А сұрақтан) жауап беру тиісті. Ку оқушы барлық сұрақтарды оқытуға қаламайды. Бесті алу үшін, сұрақтардың қандай ең аз саны оған жатап алу керек?
Достарыңызбен бөлісу: | 
