A) for I:=n downto 2
do for j:=2 to I do
if a[j-1]>a[j] then begin a[j]:=a[j-1]; c:=a[j]; a[j-1]:=c; end.
B) For I:=2 to n do
For j:=2 to I do
If a[j-1]<a[j] then begin c:=a[j]; a[j]:=a[j-1];a[j-1]:=c; end.
C) for I:=n downto 2 do
for j:=2 to I do
if a[j-1]>a[j] then begin a[j]:=a[j-1]; c:=a[j];a[j-1]:=c; end.
D) for I:=12 to n do
for j:=2 to I do
if a[j-1]<a[j] then begin c:=a[j];a[j]:=a[j-1]; a[j-1]:=c; end.
E) for I:=n downto 2 do
for j:=2 to i do
if a[j-1]<a[j] then begin c:=a[j]; a[j]:=a[j-1]; a[j-1]:=c; end.
18. Какой фрагмент из ниже перечисленных выводит на экран сумму элементов каждой строки матрицы А размером n*n
A) for I:=1 to n do begin s:=0;
for j:=1 to n do s:=s+a[I,j];end; writeln (s)
B) s:=0; for I:=1 to n do begin
for j:=1 to n do s:=s+a[I,j]; writeln (s); end
C) s:=0; for I:=1 to n do
for j:=1 to n do s:=s+a[I,j]; writeln (s)
D) for I:=1 to n do begin s:=0;
for j:=1 to n do s:=s+a[I,j]; writeln (s); end
E) s:=0; for I:=1 to n do begin
for j:=1 to n do s:=s*a[I,j]; writeln (s)
19. Какой фрагмент из ниже перечисленных выводит на экран произведение элементов каждой строки матрицы А размером n*n
A) for I:=1 to n do begin s:=0;
for j:=1 to n do s:=s*a[I,j];end; writeln (s)
B) s:=1; for I:=1 to n do begin
for j:=1 to n do s:=s*a[I,j]; writeln (s); end
C) s:=0; for I:=1 to n do
for j:=1 to n do s:=s*a[I,j]; writeln (s)
D) for I:=1 to n do begin s:=1;
for j:=1 to n do s:=s*a[I,j]; writeln (s); end
E) s:=0; for I:=1 to n do begin
for j:=1 to n do s:=s*a[I,j]; writeln (s)
20. Выберите правильно организованный цикл, вычисляющий произведение S=
*
*.. 
A) FOR I:=I TO DO N S:= S* 
B) s:=1;FOR I:= I TO N DO S:=S*SQRT (2)
C) FOR I:=1 TO N DO S:= SQRT (2*S)
D) FOR I:=1 TO N DO S: =SQRT (2*SQRT(S))
E) FOR I:=I TO N DO S:=SQRT (2)
21. Чему равно значение переменной Х, после выполнения операторов
x:=2; while x<6 do begin x:=x+1; x:=x+5; end.
A) 10
B) 8
C) 5
D) 7
E) 13