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

i:=1;

while i<=5 do

begin

B[i]:=sqr(A[i])+1;

i:=i+1;

end;

если массив А содержит следующие элементы:

Индексы	1	2	3	4	5
Элементы	2	3	1	4	7

Ответ:

Элементы	2	3	1	4	7
Значения	5	10	2	17	50

22. Сформируйте значения переменой s1 в результате выполнения фрагмента программы:

begin

s1:=’компьютеризация’;

writeln(s1);

Delete(s1,1,7);

writeln(s1);

Delete(s1,3,2);

writeln(s1);

s2:=’Г’;

Insert(s2,s1,1);

writeln(s1);

s3:=’НЕ’;

Insert(s2,s1,3);

writeln(s1);

end;

Ответ: s1=’еризация’

s1=’ерация’

s2=’герация’

s3=’генерация’

23. Сформируйте матрицу m*n, которая будет получена в результате работы фрагмента программы:

For i:=1 to 3 do

begin

For j:=1 to 4 do

begin

if i=j then a[i,j]:=2 else a[i,j]:=1;

write(a[i,j]);

end;

Ответ: 2111

1211

1121

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

i:=1;

while i<=4 do

begin

B[i]:=sqr(A[i])+3;

i:=i+1;

end;

если массив А содержит следующие элементы:

Индексы	1	2	3	4
Элементы	2	1	3	4

Ответ:

Элементы	2	1	3	4
Значения	7	4	12	19

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

For i:=1 to 3 do

Begin

A[i]:=A[i] mod 3;

A[i]:=A[i]+1;

end;

если массив А содержит следующие элементы:

Индексы	1	2	3
Элементы	10	8	7

Ответ:

Элементы	10	8	7
Значения	2	3	2

26. Найдите значение переменной n , которое будет получено в результате выполнения фрагмента программы:

n:=0;

for i:=1 to 5 do

if m[i]>=0 then

n:=n+1;

если последовательность содержит следующие элементы:

Элементы	1	2	3	4	5
Значения	-2	3	4	-5	7

n=?

Ответ: n=3.

27. Найдите значение переменной s , которое будет получено в результате выполнения фрагмента программы:

s:=0;

for i:=1 to 4 do

s:=s+m[i]

end;

если последовательность содержит следующие элементы:

Элементы	1	2	3	4
Значения	2	3	4	5

Ответ: s=14.

28. Найдите значение переменной n, которое будет получено в результате выполнения фрагмента программы:

n:=0;

for i:=1 to 5 do

if m[i]<=0 then

n:=n+1;

если последовательность содержит следующие элементы:

Элементы	1	2	3	4	5
Значения	0	-2	5	-3	4

n=?

Ответ: n=3.

29. Найдите значение переменной s, которое будет получено в результате выполнения фрагмента программы:

s:=0;

for i:=1 to 5 do

if i mod 2=0 then

s:=s+a[i];

end;

если последовательность содержит следующие элементы:

Элементы	1	2	3	4	5
Значения	2	4	3	1	5

s=?

Ответ: s=5.

30. Найдите значение переменной k, которое будет получено в результате выполнения фрагмента программы:

k:=0;

for i:=1 to 6 do

if a[i] mod 2=0 then

k:=k+1;

end;

если последовательность содержит следующие элементы:

Элементы	1	2	3	4	5	6
Значения	2	4	3	1	6	7

k=?

Ответ: k=3.

9