Что такое массив? 1 страница

D) 654

C) 576

B) 567

A) 170

E) 566

{Правильный ответ}=C

{Сложность}=2

{Тема}=5

{Семестр}=1

$$0215

Диапазон целого типа bute:

A) 0..256

B) 0..255

C) 1..255

D) 2..255

E) 0..251

{Правильный ответ}=B

{Сложность}=2

{Тема}=5

{Семестр}=1

$$0216

Диапазон целого типа Integer (-32767…32768) занимает:

A) 2 байта

B) 1 байт

C) 3 байта

D) 4 байта

E) 5 байтов

{Правильный ответ}=B

{Сложность}=2

{Тема}=5

{Семестр}=1

$$$0217

Выберите правильный вариант определения четности элемента массива А[10];

A) IF I mod 2 = 0 then...

B) IFODD(1)THEN...

С) IF А[I] mod2 = 0 then...

D) IFODD(A[I])THEN...

E) IF A[M] mod 2 - 0 then...

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0218

Выберите правильный вариант определения МАХ среди элементов, расположенных на четных позициях массива А[17].

A) МАХ:=А[1]; FOR I:=2 TO 17 DO

IF A[I]>MAX THEN MAX:=A[I]

B) МAХ:=А[2]; FOR I:=2 TO 8 DO

IF A[2*I]>MAX THEN MAX:=A[I]

C) МАХ:=А[2]; FORI:=2 TO 17 DO

IF A[2*I]>MAX THEN MAX:=A[2*I]

D) MAX:=A[2]; FOR I:=2 TO 8 DO

IF A[2*I]>MAX THEN MAX:=A[2*I]

E) MAX:=A[1];

FOR I:=2 T0 17 DO

IF ODD(I) THEN IF A[I]>MAX THEN MAX:=A[I];

{Правильный ответ}=D

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0219

Что будет напечатано следующей программой

PROGRAM MASB;

VAR B: ARRAY[1..10] OF INTEGER;

i, L: INTEGER;

BEGIN L:=1;

FORI:=1To 20 DO

IF ODD(I) THEN

BEGIN

B[L]:=sqr(I);

L:=L+1; END;

FOR L:=1 To 10 DO

WRITE(B[L]:4)

END.

A) 1 9 25 49 81 121 169 225 289 361

B) l 25 81 169 289

C) 4 16 36 64 100 144 196 256 324

D) 4 36 100 196324

E) 149 16 25 36 4964 81 100

{Правильный ответ}=A

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0220

Выберите правильный вариант упорядочения массива В[20] по не возрастанию

A) FOR I:=1 TO 19 DO

FOR J-I+1 T0 20 DO

IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J+1];B[J]:=C;

END;

В) FOR I:-1 TO 19 DO

FOR J:=l TO 20 DO

IF B[I]<B[J] THEN

BEGIN C:-B[IJ; B[I]:HB[J];B[J]:=C; END;

A) FORI:=1 TO 19 DO

FOR J:=I+1 TO 20 DO

IF B[I]<B[J] THEN

BEGIN C:=B[IJ; B[I]:=B[J];B[J]:=C; END;

B) FORI:=1 TO 19 DO

FOR J-I-H TO 19 DO

IF B[I]>B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J];B[J]:=C; END;

C) FORI:=1 TO 19 DO

FOR J:=I+1 TO 20 DO IF B[I]>B[J]

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0221

Выберите правильный вариант проверки последовательности а₁...,а_n на возрастание (переменной PR присвоить 1, если последовательность возрастающая, в противном случае PR присвоить 0)

A) PR:=1;FOR I:=1 TO N-1 DO

IF A[I]>A[I+1] THEN break;

B) PR:=1; FOR I:=l TO N DO

IF A[I]>A[I+1] THEN break;

C) PR:=1; FOR I:=l TO N DO;

IF A[I]>A[I+1] THEN break;

D) PR:=1;FORI:=1 TO N-1 DO

IF A[I]>A[I+1] THEN begin PR:=0; break; END;

E) PR:=1; FOR I:=l TO N-l DO IF A[I]>A[I+1] THEN

Begin PR:=0; break; END;

{Правильный ответ}=E

{Сложность}=2

{Тема}=6

{Семестр}=1

$$$0222

Выберите правильный вариант фрагмента для решения задачи: упорядочить элементы массива А(10) по возрастанию.

A) for i:=l to n-1 do

for L:=i+1 to n do

if a[i]>a[L] then begin

c:=a[i]; a[i]:=a[L]; a[L]:=c;

end;

B) for i:=l to n do for L:=i+l to n do

if a[i] < a[L] then begin

c:=a[i]; a[i]:=a[L]; a[L]:=c;

end;

C) for i:=l to n-1 do

if a[i] > a[i+l] then begin

c:=a[i]; a[i]:=a[i+l]; a[i+l]:=c; end;

D) for i:=l to n-1 do

if a[i] <a[i+l] then begin

a[i]:=a[i+l];a[i+1]:=a[i];

end;

E) for i:=l to n-1 do

if a[i] > a[L] then begin

a[i]:=a[L]; a[L]:=a[i];

end;

{Правильный ответ}=B

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0223

Выберите правильный фрагмент программы для проверки упорядоченности массива по убыванию.

А) х:=1;

for i:=l to n-1 do

if a[i] < a[i+l] then begin x:=0; break; end;

B) x:=l;

For i:=l to n do

if a[i] < a[i+l] then x:=0; break;

C) x:=l;

For i:=l to n-1 do if a[i] < a[i+l] then x:=0; break;

D) x:=l;

For i:=l to n do if a[i] <> a[i+1] then break;

E) x:=l;

for i:=l to n do if a[i] < a[i+l] then continue;

{Правильный ответ}=A

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0224

Выберите правильный фрагмент описания процедуры для ввода массива А(10).

A) procedure vv(var a: matrix);

Var i;=integer;

Begin

For i:=l to n do read (a[i])

End;

B) procedure vv(var a: matrix); Var i:real;

Begin

For i:=l to n do read (a[ij)

End;

C) procedure vv(var a: matrix);

Var i: integer;

Begin

For i:=l to n do read (a[i])

End;

D) procedure w(var a: matrix);

For i:=l to n do read (a[ij)

E) procedure w(var a: matrix): matrix;

For i:=l to n do read (a[i])

{Правильный ответ}=C

{Сложность}=2

{Тема}=6

{Семестр}=1

$$$0225

Что будет напечатано следующей программой

PROGRAM ZAM;

CONST N=10;

VAR A:ARRAY[1..N] OF INTEGER; C,MAX,MIN,L,M,I:INTEGER;

BEGIN {элементы массива: 156371213 25 119 4}

FORI:=1TO N DO READ (A[I]>; MAX:=A[1]; M:=l; MIN:=A[1]; L:=l;

FORI:=1 TO N DO

IF ODD(A[I]) THEN IF A[I]< MIN THEN BEGIN

MIN:=A[I]; L:=I; END

ELSE

IF A[I]>MAX THEN BEGIN

MAX:=A[I]; M:=I; END;

C:=A[L]; A[L]:=A[M]; A[M]:=C;

FOR I:=1 TO N DO

WRITE (A[I]:3);

END;

A) 15 6 3 7 12 13 2 11 25 4

B) 15 6 25 7 12 13 3 11 9 4

C) 15 6 3 7 2 13 25 9 12 4

D) 15 6 12 7 3 13 25 9 2 4

E) 15 6 3 4 1325 9 2 7 12

{Правильный ответ}=B

{Сложность}=2

{Тема}=6

{Семестр}=1

$$$0226

По массиву А[11, 11] построить массив В[11] по правилу:

В[1] присвоить минимальный элемент побочной диагонали,

В[2] присвоить минимальный элемент диагонали, расположенной ниже и параллельно побочной диагонали и т.д.

A) FOR L:=12T0 22 DO

MIN:=A[L-11,11];

FOR I:=L-11 ТО 11 DO

IF A[I,L-I]<MIN THEN MIN:=A[I,L-I]; B[L]:=MIN END;

B) FOR L:=12TO 22 DO BEGIN

MIN:=A[L-11,11];

FOR I:=L-11 TO 11 DO

IF A[I,L-I]<MIN THEN MIN:=A[I,L-I]; B[L-11]:=MIN END;

C) FORL:=12T0 21 DO BEGIN

MIN:=A[L-11,H]; FORI:=L-11T011 DO

IF A[I,L-I]<MIN THEN MIN:=A[I,L-I]; B[L-11]:=MIN END;

D) FORL:=12 TO 22 DO MIN:=A[L-11,11];

FORI.=L-11 TO 11 DO

IF A[I,L-I]<MIN THEN MIN:=A[I,L-I]; B[L-11]:=MIN;

E) FORL:=12 TO 22 DO BEGIN

MIN:=A[L-11,11]; FORI:=11 TO L-11 DO

IF A[I,L-I]<MIN THEN MIN:=A[I,L-I]; B[L-11]:=MIN END;

{Правильный ответ}=A

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0227

Каковы будут результаты исполнения фрагмента программы для одномерного массива, значения которого приведены в таблице.

FOR I:=1 TO 10 DO

BEGIN A:=A[I]; A[I]:=A[ll-I]; A[11-I]:=A;

END;

I
A(I)

A) 20,19,18,17,16,15,14,18,19,20

B) 11,12,13,14,15,16,17,18,19,20

C) 11,12,13,14,15,16,14,13,12,11

D) 20,19,18,17,16,15,14,13,12,11

E) 11,12,13,14,15,15,14,13,12,11

{Правильный ответ}=A

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0228

Каковы будут результаты исполнения фрагмента программы для одномерного массива, значения которого приведены в таблице.

FORI:=1 TO 10 DO

A[I]:=A[ll-I]

I
A(I)

A) 20,19,18,17,16,15,17,18,19,20

B) 20,19,18,17,16,15,14,13,12,14

C) 20,19,18,17,16,16,17,18,19,20

D) 10,9,8,7,6,5,4,3,2, 1

E) 14,12,13,14,15,16,17,18,19,20

{Правильный ответ}=B

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0229

Что будет напечатано в результате выполнения фрагмента программы, если элементами массива А являются числа (4,105,11,14,5)?

FOR I-1T0 4 DO BEGIN

М:=А[1]; К:=1; FOR J:=I T0 5 DO

BEGIN

IF A[J]<M THEN M:=A[J];K:=J

END;

P:=A[I]; A[I]:=A[K]; A[K]:=P;

END;

FORI:=1 TO 5 DO

WRITE (A[I]);

A) 105,14,11,5,4

B) 4,105,11,14,5

C) 4,5,11,14,105

D) 4,11,105,14,5

E) 1,2,3,4,5

{Правильный ответ}=B

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0230

Выберите правильный вариант определения четности элемента массива А[10];

A) IF I mod 2 = 0 then...

B) IF ODD(I) THEN

C)IFA[I]mod2 = 0 then...

D) IF ODD(A[I]) THEN

E) IFA[I+l]mod2 = 0 then...

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0231

Выберите правильный вариант определения МАХ среди элементов, расположенных на четных позициях массива А[17]

А) МАХ:=А[1];

FOR I:=2 T0 17 DO

B) МАХ:=А[2];

FOR I:=2 ТО 8 DO

IF A[2*I]>MAX THEN MAX:=A[I];

C) МАХ:=А[2];

FOR I:=2 TO 17 DO

IF A[2*I>MAX THEN MAX:=A[2*I];

D) МАХ:=A[2];

FOR I:=2 TO 8 DO

IF A{[*I]>MAX THEN MAX:=A[2*I];

E) МАХ:=А[1];

FOR I:=2 T0 17 DO

IF ODD(I) THEN IF A[I]>MAX THEN MAX:=A[I];

{Правильный ответ}=D

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0232

Что будет напечатано следующей программой

PROGRAM MASB;

VAR B:ARRAY[1.. 10] OF INTEGER;

L,I:INTEGER;

BEGIN L:=l;

FOR I:=1 TO 20 DO IF ODD(I) THEN BEGIN

B[L]:=sqr(I);

L:=L+1;

END;

FOR L:=1 TO 10 DO

WRITE(B(L):4)

END.

A) 1 9 25 49 81 121 169 225 289 361

B) 125 81 169289

C) 4 163664 100 144 196256324

D) 4 36 100 196 324

E) I 49 16 25 36 49 64 81 100

{Правильный ответ}=A

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0233

Выберите правильный вариант упорядочения массива В[20] по не возрастанию

A)FORI:=1 TO 19 DO

FORJ:=I+1 TO 20 DO IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J+1];B[J]:=C; END;

B)FORI:=1 TO 19 DO

FORJ:=1 TO 20 DO IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J];B[J]:=C; END;

C)FORI:=1 TO 19 DO

FORJ:=I+1 TO 20 DO IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J];B[J]:=C; END;

D)FORI:=1 TO 19 DO

FORJ:=I+1 TO 19 DO IF B[I]>B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J];B[J]:=C; END;

E)FORI:=1 TO 19 DO

FORJ:=I+1 TO 20 DO IFB[I]>B[J]

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0234

A) Ограниченная упорядоченная совокупность однотипных величин

B) Ограниченная совокупность различных элементов

C) Совокупность ограниченного числа логически связанных компонент, принадлежащих к разным типам

D) Операторы

E) Элементарные конструкции

{Правильный ответ}=A

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0235

Сколько элементов в таблице x определенной следующим образом x: array [0..100] of integer?
A) 0

B) 1

C) 99

D) 100

E) 101

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0236

Как определяется таблица из 29 действительных элементов?
A) x: array [1..29] of integer;

B) x: array [1..29] of real;

C) x: array [1..28] of real;
D) x: array of [1..29] real;

E) x: array of [1..28] real;

{Правильный ответ}=B

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0237

Табличные переменные используются, чаще всего тогда, когда:
A) количество переменных мало

B) количество переменных велико

C) количество переменных зараннее не известно

D) все переменные в программе одого типа

E) переменных больше чем 33

{Правильный ответ}=B

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0238

Индекс табличной величины - переменная... типа.
A) строкового

B) символьного

C) целого

D) действительного

E) логического

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0239

for i:=1 to 15 do begin
S:=0;
for j:=1 to 10 do
S:=S+a[i,j]; writeln(s);
end;
Данный фрагмент программы подсчитывает и выводит...
A) сумму всех элементов массива

B) сумму отрицательных элементов

C) сумму элементов каждой строки массива

D) количество строк

E) количество неотрицательных элементов в каждой строке

{Правильный ответ}=C

{Сложность}=7

{Тема}=6

{Семестр}=1

$$0240

Выберите определение массива

A) это часть программы повторяющееся несколько раз

B) это упорядоченная последовательность величин, обозначенная одним именем

C) это именованная область памяти на внешнем носителе, предназначенная для хранения данных

D) это структура данных состоящих из фиксированного числа компонентов, называемых полями

E) это неупорядоченная совокупность неповторяющихся элементов одного типа, имеющих общее имя

{Правильный ответ}=B

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0241

Описание массива имеет вид

A) <имя типа>=Record <список полей> End

B) <имя типа>=Set of <базовый тип>

C) <имя переменной >= Array[< тип индекса>] Of <тип элементов>

D) If<условие> Then<оператор1> Else<оператор2>

E) For<параметр>:= <нз>to<кз> do<оператор>

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0342

Матрицы у которых число строк равняется числу столбцов
A) двумерной

B) одномерной

C) квадратной

D) прямоугольной

E) диагональной

{Правильный ответ}=C

{Сложность}=1

{Тема}=6

{Семестр}=1

$$0243

Обращение к элементам массива осуществляется с помощью …

A) записи

B) строк

C) поля

D) индекса

E) оператора

{Правильный ответ}=E

{Сложность}=1

{Тема}=6

{Семестр}=1

$$$0244

Отрицательные элементы четных столбцов массива A[10,10] заменить квадратами этих элементов

A) FOR J:=1 TO 5 DO FORI:=J TO 10 DO

IF A[I,2*J]<0 THEN A[1,2*J]:=A[I,2*J]*2;

B) FORJ:=2TO10DO

FOR I:=I TO 10 DO

IF A[I,2*J]<0 THEN A[1,2*J]:=SQR(A[1,2*J]);

C) FORJ:=1 TO 5 DO

FORI:=1 TO 10 DO

IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[1,2*J]);

D) FORJ:=1 TO 5 DO

FORI:=1 TO 10 DO

IF A[1,2*J]<0 THEN A[I,J]:= A[1,2*J]*2;

E) FOR I:=1 TO 5 DO

FORI.-l TO 10DO

IF A[1,2*J]<0 THEN A[1,2*J]:=SQR(A[I*J]);

{Правильный ответ}=C

{Сложность}=3

{Тема}=7

{Семестр}=1

$$$0245

Положительные четные элементы побочной диагонали обнулить (Массив а[7,7])

A) FOR I:=1 T0 7 DO

IF (A[I,8-I]>0) AND (А[І,8-I] MOD 2 =0) THEN A[I,8-I]:=0;

B) FOR I:=1 TO 7 DO

IF (A[I,8-I]>0) AND (А[І,8-I] MOD 2 =0) THEN А[I,J]:=0;

C) FOR I:=1 T0 7 DO

IF A[I,8-I]>0 and a[i,8-i] mod 2 =0 then a[i,8-i]:=0;

D) FOR I:=1 T0 7 DO

IF A[I,8-I]>0 AND ODD(A[I,8-I]) THEN A[I,8-I]:=0;

E) FOR I:=1 T0 7 DO

IF A[I,8-I]>0 OR ODD(A[I,8-I]) THEN A[I,8-I]:=0;

{Правильный ответ}=A

{Сложность}=2

{Тема}=7

{Семестр}=1

$$$0246

Вывести массив A[8,8] построчно

A) FORI:=1 TO 8 DO

FOR J:=l TO 8 DO

WRITELN (A[I,J]:4);

B) FORI:=1 TO 8 DO

FORJ:-1TO8DO

WRITE(A[I,J]:4);

D) FOR I:=l TO 8 DO

BEGIN

FOR J:=1TO 8 DO

WRITE(A[I,J]:4);

WRITELN

END;

D) FORI:=1TO8DO

FOR J:=1 TO 8 DO

WRITE(A[I,J]:4);

WRITELN;

A) FORI:=1TO 8 DO

FORJ;=1TO 8 DO

WRITE(A[I,J]);

{Правильный ответ}=C

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0247

Выберите правильный вариант умножения массива А[4,2] на массив В[2,3]

A) FORI:=1TO 4 DO

FORJ:=1 TO3DO

BEGIN S:=0;

FOR K:=1 TO 2 DO

S:-S+A[I,K]*B[K,J];

C[I,J]:=S;

END;

B) FORI:=1TO 2 DO

FORJ:=1 TO 3 DO

FOR K:=1 TO 4 DO

C[U]:=C[I,J]+A[I,K]*B[K,J];

C) FORI:=1T0 2 DO

FOR J:=l TO 3 DO

FOR K:=1TO 4 DO

C[I,J]:=A[I,K]*B[K,J];

D) FORI:=1T0 2 DO FOR J:=1 T0 3 DO

FOR K:=1 TO 4 DO

C[I,J]:=C[I,J]*A[I,K]*B[K,J];

D) FORI:=1 TO 3 DO

FOR J:=1 TO 4 DO

FOR K:=1 TO 2 DO

C[U]:=C[I,J]+A[I,J]*B[K,J];

{Правильный ответ}=A

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0248

Выберите правильный фрагмент программы для определения количества столбцов, состоящих из попарно различных элементов массива А[5,5]

A) FORJ:=1 TO 5 DO FORI:=1 TO 4 DO FORLHH-1 TO 5 DO

IF A [I,J]=A[L,J] THEN break; K:=K+1;

B) FOR J:=l TO 5 DO begin FORI:=1 TO 4 DO

FOR L:=I+1 TO 5 DO

IF A [I,J]=A[L,J] THEN GOTO Ml;

K:=K+1;

Ml; END;

C) for j:=1 TO 5 DO begin

FOR I:=l TO 4 DO L:=1+1 TO 5 DO IF A [I,J]=A[L,J] THEN

GOTO Ml;

K:=K+1;

M1:END;

D) FOR J:=l TO 5 DO begin

FORI:=1 TO 4 DO

IF A [I,J]=A[L,J] THEN break;

K:=K+1; END;

E) FORJ:=1 TO 5 DO

FOR I:=1 TO 4 DO IF A [I,J]=A[I+1,J] THEN break;

K:=K+1;

{Правильный ответ}=B

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0249

Выберите правильный фрагмент программы для определения номеров строк, элементы которых совпадают с элементами соответствующих столбцов массива А[ п,п ]

A) FOR I:=1TO N DO

FOR J:-1TO N DO

IF A[I,J]<>A[J,I] THEN break;

L:=I; WRITELN ('L=’, L);

B) FOR I:=1 TO N DO

BEGIN

FORJ:=1 TO N DO

IF A[I,J]oA[J,I] THEN GOTO Ml;

L:=I; WRITELN ('L=', L);

M1:END;

C) FORI:=1 TO N DO

FOR J:=1 TO N DO

IF A[I,J]oA[J,IJ THEN BEGIN L:=I; WRITELN ('L=', L);END;

D) FOR I:=1 TO N DO

FOR J:=1 TO N DO

IF A[I,J]=A[J,I] THEN

BEGIN L:=I; WRITELN ('L-', L); END;

E) FORI:=1 TON DO

FORJ:=I TON DO

IF A[I,J]=A[J,I] THEN WRITELN(I);

{Правильный ответ}=E

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0250

Выберите правильный фрагмент программы для возведения в квадрат элементов главной и побочной диагонали массива А[5,5]

A) FORI:=1 T0 5 DO

BEGIN A[I,I]:=SQR(A[I,I]); A[I,6-I]:=SQR(A[I,6-I])

END;

B) FORI:=1T0 5 DO

A[I,I]:=SQR(A[I,I]);A[I,6-I]:=SQR(A[I,6-I]);

C) FOR I:=1 TO 5 DO

BEGIN A[I,I]:=SQR(A[I,I]); A[I,I-6]:=SQR(A[I,I-6]); END;

D) FOR I:=l TO 5 DO BEGIN A[I,I]:=SQR(A[I,I]);A[I,6-I]:=SQR(A[I,6-I]);

END;

E) FOR I:=1 TO 6 DO

A[I,I]:=SQRT(A[I,I]); A[I,6-I]:=SQRT(A[I,6-I]); END;

{Правильный ответ}=A

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0251

Требуется транспортировать массив В[20,20] (B[I,J]↔B[J,I])

A) FOR I:=1TO 19 DO

FOR J:=I+1 TO 20 DO

C:=B[I,J];B[I,J]:=B[J,I];B[J,I]:=C;

B) FOR I:=1 TO 19 DO

FOR J:=1 TO 20 DO

BEGIN C:=B[I,J]; B[I,J]:=B[J,I];B[J,I]:=C; END;

C) FOR I:=1T0 20 DO

FOR J:=I+1 TO 20 DO

BEGIN C:=B[I,J]; B[I,J]:=B[J,I];B[J,I]:=C END;

D) FOR I:=1 TO 19 DO

FOR J:=I+1 TO 20 DO

BEGIN C:=B[I,J]; B[J,I]:=C END;

E) FORI:=1 TO 19DO

FORJ:=I+1 TO 20 DO

BEGIN C:=B[J,I]; B[I,J]:=C END;

{Правильный ответ}=B

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0252

Что будет напечатано в результате выполнения фрагмента программы?

FOR I:=l ТО 3 DO

BEGIN

FOR J:=1 ТО 3 DO

WRITE(I*J);

END;

А) 1 2 3

2 4 6

3 6 9

В) 1

С) 1,2,3

D) 1 1 1

2 2 2

3 3 3

Е) 123246369

{Правильный ответ}=A

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0253

Какие из приведенных описаний двумерных массивов являются неправильными?

1) var w: array [5..7] of integer;

2) type maska = (www,lll,mmm); a: array [maskaj of array[1..5] of char;

3) var mass: array [1..5],[1..7] of real;

A) l и 2

В) 2 и З

С) 1 и З

О) все

Е) неправильных нет

{Правильный ответ}=D

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0254

Отрицательные элементы четных столбцов массива А[10,10] заменить квадратами этих элементов

A) FORJ:=1 T0 5 DO

FORI:=1 T0 10 DO

IF A[1,2*J)<0 THEN A[I,2*J]:=A[I,2*J]*2;

B) FORJ:-2 TO 10 DO

FORI:=1 TO 10 ЕЮ

IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(AP,2*J]);

C) FOR J:=1 TO 5 DO

FORI-1TO 10 DO

IF A[I,2*J)<0 THEN A{I,2*J]:=SQR(A[I,2*J]);

D) FOR J:=1 TO 5 DO

FOR I:=1 TO 10 DO

IF A[I,2*J]<0 THEN A[I,J]:=A[I,2*J]*2;

E) FORJ:=1 TO 5 DO

FORI:=1TO10DO

EF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,J]);

{Правильный ответ}=C

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0355

Положительные четные элементы побочной диагонали обнулить (массив а[7,7])

A) FOR I:=l ТО 7 DO

IF (A[I,S-I]>0) AND (AP,8-I] MOD 2 =0) THEN A[1,8-I]:=0;

B) FORI:=1 TO 7 DO

IF (A[I,8-I]>0) AND (A[I,8-I] MOD 2 =0) THEN A[I,J]:=0;

C) FO$I:=1 TO 7 DO

IF A[I,8-I]>0 AND A(I,8-I3 MOD 2 =0 THEN A[I,8-I]:=0;

D) FOR I:=1TO 7 DO

IF A[I,8-I]>0 AND ODD(A[I,84]) THEN A[I,8-I]:=0;

E) FOR I:=1 TO 7 DO

IF IF A[I,8-I]>0 OR ODD(A[I,8-I]) THEN A[I,8-I]:=0;

{Правильный ответ}=A

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0256

Выберите правильный вариант умножения массива А[4,2] на массив В[2,3]

A) FOR I:=1 TO 4 DO

FORJ:=1 TO 3 DO

BEGIN S:=0;

FOR K:=l TO 2 DO S:=S+A(I,K]*B[K,J];

C[I,J]:=S;

END;

B) FOR I:=1 T0 2 DO

FOR J:=1 TO 3 DO

FOR K:=1 TO 4 DO

C[I,J]:=C[I,J]+A[I,K]*B[K,J];

C) FOR I:=1 TO 2 DO

FOR J:=1 TO 3 DO

FOR K:=1TO 4 DO

C[I,J]:=A[I,K]*B[K,J];

D) FOR I:=1 TO 2 DO

FOR J:=1 TO 3 DO

FOR K:=1 TO 4 DO

C[I,J]:= C[I,J]*A[I,K]*B[K,J];

E) FOR I:=1 T0 3 DO

FOR I:=1 TO 4 DO

FOR K=1 TO 2 DO

C[I,J]:=A[I,J]*B[K,J];

{Правильный ответ}=A

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0257

Вывести массив А[8,8] построчно

A) FORI:=1 TO 8 DO

FORJ:=1 TO 8 DO

WRITELN (A[I,J]:4);

B) FORI:=1 TO 8 DO FORJ:=1 TO 8 DO WRITE(A[I,J]:4);

C) FORI:=1 TO 8 DO BEGIN

FORJ:=1 TO 8 DO WRITE(A[I,J]:4); WRITELN END;

D) FOR I:=l TO 8 DO FORJ:=1 TO 8 DO

WRITE(A[I,J]:4); WRITELN;

E) FOR I:=l TO 8 DO FORJ:=1 TO 8 DO

WRITE(A[I,J]);

{Правильный ответ}=C

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0258

Требуется транспортировать массив В[20,20] (B[I,J]4->B[J,I])

A)FORI:=1 TO 19 DO FORJ:=I+1 TO 20 DO

C:-B[I,J];B[U]:=B[J,I];B[J,I]:=C;

B)FORI:=1 TO 19 DO

FORJ:=I+1 TO 20 DO

BEGIN C:=B[I,J]; B[I,J]:=B[J,I];B[J,I]:=C; END;

C) FORI:=1 TO 20 DO

FORJ:=I+1 TO 20 DO

BEGIN C:=B[I,J]; B[I,J]:=BfJ,I];B[J,I]:=C END;

D) FORI:=1 TO 19 DO FORJ:=I+1 TO 20 DO BEGIN C:=B[I,J]; B[J,I]:=C END; E)FORI:=1 TO 19 DO

FORJ:=I+1 TO 20 DO BEGIN C:=B[J,I]; B[I,J]:=C END;

{Правильный ответ}=B

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0259

Отрицательные элементы четных столбцов массива А[ 10,10] заменить квадратами этих элементов

A) FORJ:=1 TO 5 DO

FORI:=1 TO 10 DO

IF A[I,2*J]<0 THEN A[I,2*J]:=A[I,2*J]*2;

B) FORJ:=2T010DO

FORI:=1 TO 10 DO

IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,2*J]); V

C) FORJ:=1 TO 5 DO

FORI:=1 TO 10 DO

IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,2*J]);

D) FORJ:=1 TO 5 DO

FORI:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,J]:=A[I,2*J]*2;

E) FORJ:=1 TO 5 DO

FORI:=1 TO 10 DO IF A[I,2*J]<0 THEN A[I,2*J]:=SQR(A[I,J]);

{Правильный ответ}=C

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0260

Выберите правильный вариант определения четности элемента массива А[10];

A) IF I mod 2 = 0 then...

B) IF ODD(I)THEN...

C) IF A[I] mod 2 - 0 then...

D) IF ODD(A[I]) THEN...

E) IF A[M] mod 2 = 0 then...

{Правильный ответ}=C

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0261

Сколько элементов в массиве x определенным следующим образом x: array [1..20,1..30] of real?
A) 20

B) 30

C) 50

D) 60

E) 600

{Правильный ответ}=E

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0262

Как определяется массив целых элементов из 10 cтрок и 30 столбцов?
A) x: array [10..30] of integer;

B) x: array [10,30] of integer;

C) x: array [1..300] of integer;

D) x: array [1..10,1..30] of integer;

E) x: array [10:30] of integer;

{Правильный ответ}=D

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0263

Запись какого из выражений верна,

если x массив из целых элементов по 20 строк на 15 столбцов?

A) x[i]:=x[i,j]+3;

B) x[i,j]:=x[20,16]-1;

C) x[i,j]:=i+j;

D) x[20,15]:=x[20]*x[15];

E) x[20,15]:=x[20,14]/x[19,15];

{Правильный ответ}=C

{Сложность}=1

{Тема}=7

{Семестр}=1

$$0264

k:=0;
for i:=1 to 15 do
for j:=1 to 10 do
if x[i,j]<>0 then k:=k+a[i,j];
Данный фрагмент программы подсчитывает...
A) количество всех элементов равных нулю

B) количество всех элементов неравных нулю

C) сумму элементов равных нулю

D) сумму элементов неравных нулю

E) первый неравный нулю элемент

{Правильный ответ}=B

{Сложность}=1

{Тема}=7

{Семестр}=1

$$$0265

Выберите правильный вариант заголовка процедуры для ввода массива.

A) PROCEDURE (R:MATRIX)

B) PROCEDURE (R:ARRAY[1..N])

C) PROCEDURE (VAR R:MATRIX)

D) PROCEDURE (R:ARRAY [1..N] OF REAL)

E) PROCEDURE (R:ARRAY (1..N) OF INTEGER)

{Правильный ответ}=C

{Сложность}=1

{Тема}=8

{Семестр}=1

$$$0266

Какая из стандартных процедур и функций используется для сцепления строк?

A) COPY

B) CONCAT

C) LENGTH

D) CHR

E) VAL

{Правильный ответ}=B

{Сложность}=9

{Тема}=8

{Семестр}=1

$$$0267

Что будет напечатано программой

PROGRAM SWP;

VAR C,D:REAL;

PROCEDURE SW1(VARX,Y:REAL);

VARZ:REAL;

BEGIN

Z:=X; X:=Y; Y:=Z;

END;

BEGIN

READ(C,D);

SW1(C,D); WRITE(‘ С = ‘,C,' D = ',D);

END.

если в качестве исходных данных заданы числа 1.6 и 3.5

A) С =1.6 D = 3.5

B) 1.6 3.5

C) С =3.5 D=1.6

Дата добавления: 2014-12-16