12
December
2016
Информатикадан оимпиада 2016
11А сынып оқушысы Байжан Айжан информатика пәні бойынша ауандық олимпиададан І - орын алып мектепті және өзін оқытқан ұстаздарды, ата-анасын қуанышқа бөледі. Енді облыстық олимпиада кезінде ауданымыздың намысын қорғайды. Табысқа жетуіне тілектеспіз.
Алгоритм. Массивтегі кезекті сан алдынғысынан үлкен болса, (if f[j]<f[i] then f[i]:=0;) оны өшіреміз. Осыдан соң, массивтегі барлық элементтерді тексеріп, 0-ге тең (if f[i]<>0) еместерін есепке алып (k:=k+1) және элементің өзін басып шығарамыз. Ақырында к-ны басып шығарамыз.
program F_zadasha_Retteu_sany;
var i,j,k,n:integer;
f:array[1..100000] of integer;
begin
write(‘kansha san ‘); read(n);
writeln(n,’ san engiziniz ‘);
writeln; k:=0;
for i:=1 to n do read(f[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if f[j]<f[i] then f[i]:=0;
for i:=1 to n do
if f[i]<>0 then begin k:=k+1;write(f[i],’ ‘);end;
writeln(‘k= ‘,k);
end.
Пән мұғалімі Жақаев Мұхамеджан.