Проверочная работапо теме «Программирование массивов»
Цель: выявитьуровень понимания и усвоения материала по теме «массивы», а также навыки«чтения» программного кода.
Вариантсоответствует порядковому номеру.
Перед Вамифрагмент программы.
Массив состоит из10 чисел. Определите, что будет выведено на печать.
Примечание: операторmod определяет остаток от деления
Записью 6 mod 3 =0 мы можем определить является ли число 6 кратным числу 3 (т. е. Остатокот деления числа 6 на число 3 равно 0)
Вариант №1
|
Значение |
-10 |
15 |
7 |
6 |
7 |
2 |
3 |
7 |
14 |
-25 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=10 downto 1 do Write (a[i], ‘ ‘); ответ: -25 14 7 3 2 7 6 7 15 -10 Задача 2. For i:=1 to 10 do begin If a[i]>4 then S:=s+a[i]; end; Writeln (s); ответ: 56 Задача 3. For i:=1 to 10 do begin If a[i]<0 then K:=k+1; end; Writeln (K); ответ: 2 |
Задача 4. For i:=1 to 10 do Begin If a[i]=6 then Begin X:=a[2]; a[2]:=a[8]; a[8]:=X; end; end; For i:=1 to 10 do Write (a[i], ‘ ‘); Ответ: -10 7 7 6 7 2 3 15 14 -25 |
Вариант №2
|
Значение |
3 |
25 |
17 |
60 |
-8 |
-12 |
7 |
4 |
-2 |
-5 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]+2, ‘ ‘); Ответ: 5 27 19 62 -6 -10 9 6 0 -3 Задача 2. For i:=1 to 10 do begin If a[i]>=4 then S:=s+a[i]; end; Writeln (s); Ответ: 109 Задача 3. For i:=1 to 10 do begin If a[i]<0 then Writeln (i); End; ответ: 5 6 9 10 |
Задача 4. For i:=1 to 10 do Begin If a[i]>56 then Begin X:=a[i]; a[i]:=a[6]; a[6]:=X; end; end; Write (a[6]); ответ: 60 |
Вариант №3
|
Значение |
4 |
5 |
41 |
2 |
-4 |
3 |
3 |
8 |
9 |
5 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]*4, ‘ ‘); Ответ: 16 20 164 8 -16 12 12 32 36 20 Задача 2. For i:=1 to 10 do begin If a[i]>7 then p:=p*a[i]; end; Writeln (s); Ответ: 2952 Задача 3. For i:=1 to 10 do begin If a[i]=i then K:=k+1; Writeln (k); End; Ответ:2 |
Задача 4. For i:=1 to 10 do Begin If a[i]<0 then Begin X:=a[i]; a[i]:=a[7]; a[7]:=X; end; end; Write (a[7]); Ответ: -4 |
Вариант №4
|
Значение |
-10 |
15 |
7 |
6 |
7 |
2 |
3 |
7 |
14 |
-25 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=10 downto 1 do Write (a[i]+3, ‘ ‘); Ответ: -22 17 10 6 5 10 9 10 18 -7 Задача 2. For i:=1 to 10 do begin If a[i]<0 or a[i]=>14 then S:=s+a[i]; end; Writeln (s); Ответ: -6 Задача 3. For i:=1 to 10 do begin If a[i]>0 then K:=k+1; end; Writeln (K); Ответ: 8 |
Задача 4. For i:=1 to 10 do Begin If a[i]<-20 then Begin X:=a[i]; a[i]:=a[1]; a[1]:=X; end; end; For i:=1 to 10 do Write (a[i], ‘ ‘); Ответ: -25 15 7 6 7 2 3 7 14 -10 |
Вариант №5
|
Значение |
4 |
7 |
8 |
4 |
1 |
2 |
4 |
9 |
1 |
0 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]+a[i], ‘ ‘); Ответ: 8 14 16 8 2 4 8 18 2 0 Задача 2. For i:=1 to 10 do begin If a[i]<i then S:=s+a[i]; end; Writeln (s); Ответ:8 Задача 3. For i:=1 to 10 do begin If a[i]<0 then Writeln (i); End; ответ: |
Задача 4. For i:=1 to 10 do Begin If a[i]>8 then Begin X:=a[i]; a[i]:=a[10]; a[10]:=X; end; end; Write (a[10]); Ответ: 9 |
Вариант №6
|
Значение |
4 |
5 |
41 |
4 |
-4 |
3 |
3 |
8 |
9 |
5 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]*3, ‘ ‘); Ответ: 12 15 123 6 -12 9 9 24 27 15 Задача 2. For i:=1 to 10 do begin If a[i]>7 then p:=p*a[i]; end; Writeln (s); Ответ: 2952 Задача 3. For i:=1 to 10 do begin If a[i]=i then K:=k+1; Writeln (k); End; Ответ: 3 |
Задача 4. Begin X:=a[3]; a[3]:=a[7]; a[7]:=X; end; For i:=1 to 10 do Представленная информация была полезной? ДА 59.46% НЕТ 40.54% Проголосовало: 1157 Write (a[i], ‘ ‘);
Ответ: 4 5 3 4 -4 3 41 8 9 5 |
Вариант №7
|
Значение |
2 |
7 |
7 |
6 |
3 |
2 |
3 |
7 |
1 |
-2 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]+a[i], ‘ ‘); Ответ: 4 14 12 6 4 6 14 2 -4 Задача 2. For i:=1 to 10 do begin If a[i]>3 then S:=s+a[i]; end; Writeln (s); Ответ:27 Задача 3. For i:=1 to 10 do begin If a[i]=7 then K:=k+1; end; Writeln (K); Ответ:3 |
Задача 4. For i:=1 to 10 do Begin If a[i]=7 then Begin X:=a[i]; a[i]:=a[9]; a[9]:=X; end; end; For i:=1 to 10 do Write (a[i], ‘ ‘); Ответ2 1 7 6 3 2 3 7 7 -2 |
Вариант №8
|
Значение |
3 |
-3 |
7 |
0 |
-8 |
-12 |
7 |
4 |
-2 |
-5 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]-2, ‘ ‘); Ответ: 1 -5 5 -2 -10 -14 5 2 -4 -7 Задача 2. For i:=1 to 10 do begin If a[i]<4 then S:=s+a[i]; end; Writeln (s); Ответ: -30 Задача 3. For i:=1 to 10 do begin If a[i]<0 then Writeln (a[i]+10); End; Ответ:7 2 -2 8 5 |
Задача 4. Begin X:=a[10]; a[10]:=a[6]; a[6]:=X; end; end; For i:=1 to 10 do Write (a[i], ‘ ‘); Ответ: 3 -3 7 0 -8 -5 7 4 -2 -12 |
Вариант №9
|
Значение |
4 |
15 |
2 |
2 |
-4 |
3 |
3 |
8 |
9 |
5 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=10 downto 11 do Write (a[i]*2, ‘ ‘); Ответ: 10 18 16 6 6 -8 4 4 30 8 Задача 2. For i:=1 to 10 do begin If a[i]=2 then a[i]:=a[i]*3; end; For i:=1 to 10 do write (a[i]); Ответ: 4 15 6 6 -4 3 3 8 9 5 Задача 3. For i:=1 to 10 do begin If a[i]=i then K:=k+1; Writeln (k); End; ответ: 2 |
Задача 4. For i:=1 to 10 do Begin If a[i]>14 then Begin X:=a[i]; a[i]:=a[9]; a[9]:=X; end; end; For i:=1 to 10 do write (a[i]); Ответ:4 9 2 2 -4 3 3 8 15 5 |
Вариант №10
|
Значение |
-10 |
15 |
7 |
6 |
7 |
2 |
3 |
7 |
14 |
-25 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=10 downto 1 do Write (a[i]+1, ‘ ‘); Ответ:-9 16 8 7 8 3 4 8 15 -24 Задача 2. For i:=1 to 10 do begin If a[i] mod 2=0 then S:=s+a[i]; end; Writeln (s); Ответ: 12 Задача 3. For i:=1 to 10 do begin If a[i]>a[4] then K:=k+1; end; Writeln (K); Ответ:5 |
Задача 4.
Begin X:=a[7]; a[7]:=a[1]; a[1]:=X; end; end; For i:=1 to 10 do Write (a[i], ‘ ‘); Ответ: 3 15 7 6 7 2 -10 7 14 -25 |
Вариант №11
|
Значение |
4 |
7 |
18 |
4 |
1 |
2 |
4 |
19 |
1 |
0 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]+a[3], ‘ ‘); Ответ Задача 2. For i:=1 to 10 do begin If i mod 2=0 then S:=s+a[i]; end; Writeln (s);
Задача 3. For i:=1 to 10 do begin If a[i]=0 then Writeln (i); End; |
Задача 4. For i:=1 to 10 do Begin If a[i]> 18 then Begin X:=a[i]; a[i]:=a[6]; a[6]:=X; end; end; Write (a[6]);
|
Вариант №12
|
Значение |
4 |
15 |
2 |
2 |
-4 |
3 |
3 |
8 |
9 |
5 |
|
индекс |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
Задача 1. For i:=1 to 10 do Write (a[i]-a[7], ‘ ‘);
Задача 2. For i:=1 to 10 do begin If a[i] mod 2 <>0 then p:=p*a[i]; end; Writeln (p);
Задача 3. For i:=1 to 10 do begin If a[i] mod 2 = 0 then Writeln (i); End; |
Задача 4. Begin X:=a[9]; a[9]:=a[4]; a[4]:=X; end;
Write (a[4]+a[10]);
|
