96. Определить, что находит программа: var a: array [1..10] of integer; s,I: integer;

1. наименьший элемент массива begin S:= A[1];

for i:= 2 to 10 do

if S<A[i] then S:=A [i];

end.

97. Найти значение S: for i:=1 to 4 do

1. 24 Begin

A [i]:=i; S:=S*A [i];

end;

98. Какая из операций никогда не возвращает целочисленный результат:

3. /

99. Каким типом должна быть описана переменная, являющаяся индексом массива: 1. integer

100. Какое действие выполняет следующая последовательность операторов: for i : = ‘0’ to ‘9’ do if i IN A then k:=k+1

3. нахождение количества элементов множества А

101. Какой из языков программирования высокого уровня первым претендовал на универсальность:

1. ПЛ/1

102. Выход из системы Турбо-Паскаль осуществляется по нажатию комбинации клавиш:

3. Alt-X

103. Какой из перечисленных ниже типов данных Паскаля занимает больше одного байта памяти ПК: 3. integer

104. Какое описание является аналогом следующего С: string[10]:

1. C: array[1..10] of char

105. Результат выполнения функции round(x) имеет:

2. целочисленный результат при вещественном х

106. Результат выполнения функции odd(0): 1. false

107. Для определения равенства двух множеств, какое из условий лишнее:

3. оба множества имеют одинаковые названия.

108. Процедура REWRITE (f) применяется для:

3. открытия файла для записи

109. Оператор присваивания в Паскале имеет обозначение:

2. :=

110. Какой из разделов располагается раньше:

1.Const

111. Описания подпрограмм модуля, объявленных в интерфейсной части содержит:

3. исполняемая часть

112. Какое значение будет иметь переменная d для заданных а=2, в=3, с=4:

if (a<b) and (b<c) then d:= c-a+b

2. 5 еlse

if (a>b) and (b>c) then d:= a-b+c

еlse

if (a>b) and (b<c) then d:= a-c+b

113. Найти значение c при а=2, b=4, с=3: while a<b do

1. 32 Begin

2. 33 с:= c+a*b;

3. 19 а:= a+1;

еnd;

114. Найти значение с при а=9, b=4: repeat

1. 4 b:= b+1;

a:= a-b;

c:= a+b;

until a≤0;

115. Найти значение с для заданных а=2,b=4,с=3,n=3: for i:=1 to n do

с:= c+a*b;

3. 27

116. Определить, что находит программа: var A: array [1..10] of integer; S,i,k: integer;

begin S:= A[1];

2. номер наибольшего элемента массива for i:= 2 to 10 do

if S>A[i] then begin S:=A [i]; k:=i; end;

end.

117. Найти значение S: for i:=1 to 4 do

begin

A [i]:=i; S:=S*A [i];

3. 6 end;

S:=S/i;

118. Функция SQRT(x) возвращает:

3. корень квадратный из х

119. Элементы какой структуры не перенумерованы:

1. множества

120. Какое действие выполняет следующая последовательность операторов: for i : = ‘0’ to ‘9’ do if i IN A then write( i ) 1. ввод элементов множества A