В программе имеется следующее описание:
const n = 5; var mas: array [1..n,1..n] of integer; i, j, с: integer.
После выполнения операторов:
for i:= 1 to n do
begin
c:= mas[1, j]; mas[1, j]:= mas[2, j]; mas[2, j]:= c;
end;
(*ответ*) элементы первой и второй строки матрицы поменяются местами
элементы первого и второго столбца матрицы поменяются местами
все элементы матрицы получат значение переменной с
элементы первой и второй строки получат значение переменной с
В программе имеется следующее описание:
const n = 5; var mas: array [1..n] of integer; i, A : integer.
После выполнения операторов:
A:= mas[1]; for i:= 1 to n do
if A > mas[i] then A:= mas[i];
будет найден
(*ответ*) минимальный элемент массива
максимальный элемент массива
элементы, меньшие заданного числа А
индекс элемента, меньшего заданного числа А
В программе имеется следующее описание:
const n = 5; var mas: array [1..n] of integer; i, A : integer.
После выполнения операторов:
read(A); for i:= 1 to n do
if mas[i] > A then begin writeln (i); break; end
будет
(*ответ*) напечатан индекс первого элемента массива, значение которого больше А
напечатаны все элементы массива, большие заданного числа А
напечатан первый элемент массива, значение которого больше А
напечатаны индексы всех элементов массива, значения которых больше А
В программе имеется следующее описание:
const n = 5; var mas: array [1..n] of integer; i, A : integer.
После выполнения операторов:
read(A); for i:= 1 to n do
if mas[i] > A then writeln (i);
будет (ут)
(*ответ*) напечатаны индексы элементов массива, значения которых больше А
найден максимальный элемент массива
напечатаны элементы массива, большие заданного числа А
напечатано количество элементов массива, больших заданного числа А
В результате выполнения программы:
VAR ST: STRING; A, B: CHAR; L, i : INTEGER;
BEGIN
ST:=’ Ура. Я сдал экзамен. ‘;
L:= LENGTH (ST); A:=’.’; B:=’!’;
FOR i := 1 TO L-1 DO
IF ST[i] = A THEN WRITE(B) ELSE WRITE(ST[i])
END.
будет выведено на экран
(*ответ*) Ура! Я сдал экзамен.
Ура! Я сдал экзамен!
сообщение об ошибке
Ура. Я сдал экзамен.
В результате выполнения программы:
VAR ST: STRING; A: CHAR; K, L, i : INTEGER;
BEGIN
ST:=’Современная гуманитарная академия‘;
K:=1;
L:= LENGTH (ST); A:=’ ’;
FOR i := 1 TO L DO
IF ST[i] = A THEN K:=K+1;
WRITELN(K);
END.
будет выведено на экран
(*ответ*) 3
2
6
0
В результате выполнения программы:
VAR ST: STRING; A: CHAR; L, i : INTEGER;
BEGIN
ST:=’СОВРЕМЕННАЯ ГУМАНИТАРНАЯ АКАДЕМИЯ‘;
L:= LENGTH (ST); A:=’ ’;
FOR i := 1 TO L DO
IF ST[i] = A THEN WRITE(‘–‘) ELSE WRITE(ST[i])
END.
будет выведено на экран
(*ответ*) СОВРЕМЕННАЯ–ГУМАНИТАРНАЯ–АКАДЕМИЯ
сообщение об ошибке
СОВРЕМЕНН–Я ГУММ–НИТ–РН–Я –К–ДЕМИЯ
СОВРЕМЕННаЯ ГУМаНИТаРНаЯ аКаДЕМИЯ
В результате выполнения фрагмента программы:
Reset ( f ); For i := 1 to 5 do Read (f, V); Writeln(V);
на экран дисплея будет выведен/выведено
(*ответ*) пятый компонент файла
шестой компонент файла
пять первых компонентов файла
сообщение об ошибке