После выполнения фрагмента программы
for i:= 1 to 3 do
begin s:=0;
for j:= 1 to 3 do
if mas[i,j]<=3 then s:= s+mas[i,j];
write(s,’ ‘);
end;
будет выведено на экран
(*ответ*) 3 1 6
1 1 3
10
5
CONST n = 5. Правильное описание массива Matr
(*ответ*) VAR Matr : ARRAY [1..n] OF INTEGER
VAR Matr : ARRAY (1..n) OF INTEGER
VAR Matr : ARRAY(n) OF INTEGER
VAR Matr : Massiv [1..n]
mas = (2, 7, 4, 9, 6) var mas: array [1..5] of integer; i, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A < mas[i] then A:= mas[i]; Writeln(A); на экран будет выведено
(*ответ*) 9
6
7 9
2
mas = (2, 7, 4, 9, 6) var mas: array [1..5] of integer; i, k, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A < mas[i] then begin A:= mas[i]; k:= i; end; Writeln(k); на экран будет выведено
(*ответ*) 4
6
7 9
9
mas = (3, 7, 1, 9, 2) var mas: array [1..5] of integer; i, k, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A > mas[i] then begin A:= mas[i]; k:= i; end; Writeln(k); на экран будет выведено
(*ответ*) 3
1
1 2
2
TYPE DAY = (MON, TUE, WED, THU, FRI, SAT, SUN). Верными являются утверждения
(*ответ*) ORD(MON) < ORD(SUN)
(*ответ*) SUCC(MON) = TUE
(*ответ*) SUCC(SAT) = SUN
ORD(SUN) = 6
PRED(MON) = SUN
Var Matrix: array [1..5,1..5] of integer; Переменная Matrix является переменной типа
(*ответ*) массив
диапазон
множество
перечисляемый
Var Matrix : ARRAY [2 .. 4,2..4] OF INTEGER Matrix содержит _элементов
(*ответ*) девять
четыре
восемь
шестнадцать
В программе имеется следующее описание: type mas: array [1..5,1..5] of integer; var A,B,C: mas; i, j: integer. После выполнения операторов: for i:= 1 to 5 do for j:= 1 to 5 do C[i,j]:=A[i,j]+B[i,j]; write (C[i,j]);будет выведено на экран
(*ответ*) элемент С[5,5] матрицы С
все элементы матрицы С
общая сумма элементов матриц A и B
сумма элементов каждой строки матриц A и B
В программе имеется следующее описание: var mas: array [1..10] of integer; i, A : integer. После выполнения операторов: read(A); for i:= 1 to 10 do if mas[i] < A then begin writeln (i); break; end будет(ут) выведен(ы) на экран
(*ответ*) индекс первого элемента массива, значение которого меньше А
все элементы массива, меньшие заданного числа А
первый элемент массива, значение которого меньше А
индексы всех элементов массива, значения которых меньше А
В программе имеется следующее описание: var mas: array [1..10] of integer; i, A : integer. После выполнения операторов: read(A); for i:= 1 to 10 do if mas[i] < A then writeln (i); будет(ут) выведен(ы) на экран
(*ответ*) индексы элементов массива, значения которых меньше А
минимальный элемент массива
элементы массива, меньшие заданного числа А
количество элементов массива, меньших заданного числа А
В программе имеется следующее описание: var mas: array [1..5] of integer; i, k, Mn : integer. После выполнения операторов: Mn:= mas[1]; for i:= 1 to 5 do if Mn > mas[i] then begin Mn:= mas[i]; k:=i; end: Writeln(k); на экран будет выведен
(*ответ*) индекс минимального элемента массива
максимальный элемент массива
индекс максимального элемента массива
минимальный элемент массива