Ввод и вывод элементов массива
Вариант 1
Задание 1. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [18..25] of integer;
| | 5 | | 25 |
| | 8 | | 10 |
Задание 2. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [-2..0] of integer;
| | 0 | | 1 |
| | 2 | | 3 |
Задание 3. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [1..7] of integer;
| | 7 | | 8 |
| | 1 | | Не верно заданы количество параметров |
Задание 4. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [-11..-7] of integer;
| | 7 | | 10 |
| | 11 | | 5 |
Задание 5. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [5..6] of integer;
| | 0 | | 10 |
| | 2 | | Не верно заданы количество параметров |
Задание 6. Обращение к элементу массива осуществляется:
По адресу и по имени;
По имени и по значению;
По имени и по индексу;
По значения и по индексу.
Задание 7. Для объявления массива в языке PascalABC используют служебное слово:
For;
Dim;
While;
Array.
Задание 8. Установите соответствие.
| 1. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do readln(A[i]); End; | А. | Формирование массива из чисел, кратных трем; |
| 2. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do read(A[i]); End; | Б. | Формирование массива значениями, вводимыми с клавиатуры по одному в строке |
| 3. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do A[i]:=3*I; End; | В. | Формирование массива значениями, вводимыми с клавиатуры через пробел |
| 4. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do A[i]:=2*I-1; End; | Г. | Формирование массива из пяти нечетных чисел |
Задание 9. Установите соответствие.
| 1. | For i:=1 to 5 do If A[i] 0 then write (A[i]:3); | А. | Вывод нечетных элементов массива в строку |
| 2. | For i:=1 to 5 do If A[i] mod 2 =0 then write (A[i]:3); | Б. | Вывод отрицательных элементов в строку |
| 3. | For i:=1 to 5 do If A[i] mod 2 =1 then write (A[i]:3); | В. | Вывод положительных элементов в строку |
| 4. | For i:=1 to 5 do If A[i] | Г. | Вывод четных элементов массива в строку |
Задание 10. Дан массив
|
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| A | 8 | 8 | 8 | 8 | 8 | 8 | 1 | 6 | 7 |
Какой результат будет выведен после выполнения команды for i:=1 to 5 do write (A[i],’;’);
8;8;8;8;8;
7; 6; 1; 4; 8;
8; 4; 1; 6; 7;
8 8 4 1 6
8, 8, 8, 8, 8,
Ввод и вывод элементов массива
Вариант 2
Задание 1. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [-14..-7] of integer;
| | 5 | | 25 |
| | 8 | | 10 |
Задание 2. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [6..6] of integer;
| | 0 | | 1 |
| | 2 | | Не верно заданы количество параметров |
Задание 3. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [-10..-1] of integer;
| | 0 | | 10 |
| | 2 | | Не верно заданы количество параметров |
Задание 4. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [-2..-1] of integer;
| | 0 | | 10 |
| | 2 | | Не верно заданы количество параметров |
Задание 5. Определите, сколько элементов содержит описанный ниже массив:
Var A: array [-16..-8] of integer;
| | 0 | | 10 |
| | 9 | | Не верно заданы количество параметров |
Задание 6. Выберите допустимые имена массивов:
Mas1;
1Mas;
Mas 3;
Mas_2;
Mas5;
Mas_4;
Real;
Unreal;
Art.
Задание 7. Правильное описание массива из 10 целых чисел:
|
|
|
|
Задание 8. Установите соответствие.
| 1. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do write (A[i], ‘,’); End; | А. | Вывод элементов массива по одному в строке |
| 2. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do writeln (A[i]); End; | Б. | Формирование массива из четных чисел |
| 3. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do A[i]:=2*i; End; | В. | Вывод элементов массива в строку через запятую |
| 4. | Var A:array [1..5] of integer; i: integer; Begin For i:=1 to 5 do A[i]:=i*i; End; | Г. | Формирование массива из квадратов натуральных чисел |
Задание 9. Установите соответствие.
| 1. | For i:=1 to 5 do If A[i] 0 then write (A[i]:3); | А. | Вывод нечетных элементов массива в строку |
| 2. | For i:=1 to 5 do If A[i] mod 2 =0 then write (A[i]:3); | Б. | Вывод отрицательных элементов в строку |
| 3. | For i:=1 to 5 do If A[i] mod 2 =1 then write (A[i]:3); | В. | Вывод положительных элементов в строку |
| 4. | For i:=1 to 5 do If A[i] | Г. | Вывод четных элементов массива в строку |
Задание 10. Дан массив
|
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| A | 8 | 8 | 8 | 8 | 8 | 8 | 1 | 6 | 7 |
Какой результат будет выведен после выполнения команды for i:=5 to 9 do write (A[i],’,’);
88884;
7; 6; 1; 4; 8;
8; 8; 8; 8; 8;
8,8,1,6,9,
8, 8, 1, 6, 7,
