Решение олимпиадных задач по информатике
В результате выполнения программы, фрагмент которой приведен ниже, элементы одномерного массива примут значения …
const n=10; k=5;… for i:=1 to n do a[i]:=i;for i:=k to (n-1) do a[i]:= a[i+1];…
В результате выполнения программы, фрагмент которой приведен ниже, элементы одномерного массива примут значения …
const n=10; k=5;var a: array [1..n+1] of integer;…for i:=1 to n do a[i]:=i;for i:=k to n do a[i+1]:=a[i];a[k]:=0;…
Ниже приведен фрагмент программы, реализующий алгоритм решения задачи: "N отрезков на координатной прямой заданы координатами своих концов. Определить количество связных областей":
…//заполнение массива a (координаты концов отрезка), массива flag ("1" и "-1")…//сортировка массива а с перестановкой элементов массива flag (в соответствии с перестанавливаемыми элементами массива а) …for i=1 to 2*n do begin s:=s+flag [i]; if s=0 then k:=k+1; end;writeln ('количество связных областей', k);…
Сколько связных областей дадут два отрезка, имеющие одну общую координату (начало одного совпадает с концом другого)?
В программе на Паскале все значения элементов двумерного массива равны "2". Что будет выведено на экран монитора в результате выполнения программы, фрагмент которой приведен ниже:
…n:=5; x[2,3]:=5; x[4,1]:=1; max:=x[1,1]; min:=x[1,1];for i:=1 to n dofor j:=1 to n doif x[i,j]>max then max:=x[i,j]else min:=x[i,j];writeln (max, ' ', min);…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп:
...for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп:
...for i:=1 to n-1 dofor j:=i+1 to n do writeln (A[i], A[j]); …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп:
...k:=1;for j:=k to m-k dofor i:=j+k to m do writeln (A[i], '-', A[j]); …