---

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

Михальов Володимир (StarRover) 2014-08-21 19:54:11 Задача Table. Варіант 3. -------------------------------------- {Table} const min=-32768; max=32767; fl=40000; var i,j,n,k:longint; a:array[min..max] of longint; begin for i:=min to max do a[i]:=fl; Read(n); for j:=1 to n do begin Read(i); a[i]:=j; end; Read(k); n:=0; for i:=max downto min do begin if a[i] n:=n+1; if n=k then WriteLn(a[i]); end; end; end.

Повернутися до уроку

Повернутися до перелiку уроків курсу