 |
   |
|
|
|
|
|
Контрольные вопросы
Const
maxN = 20;
Var
a:array[1 .. maxN] of integer;
n, i, max :integer;
Begin
randomize;
n:=random(6)+5;
for i:=1 to n do
A[i]:=random(19)-9;
max:=1;
for i:=2 to n do
if A[i]>A[max] then max:=i;
for i:=n downto max+1 do
A[i+1]:=A[i];
A[max+1]:=0;
Inc(n);
writeln('Массив А после обработки:');
for i:=1 to n do
write(A[i]:3);
readln;
End.
- Какое максимально возможное количество элементов
в массиве?
- Какое максимальное значение может иметь элемент
массива?
- Каким способом заполнен массив?
с клавиатуры
случайным образом
прочитаны из данных
элементы вычислены по формуле
- Переменная max это:
максимальный элемент
индекс максимального элемента
минимальный элемент
размерность массива
- Как будут отображаться на экране дисплея элементы
массива?
в строчку
в столбик
- Сколько элементов будет иметь массив в конце
программы?
20
maxN
n+1
10
- Где будет вставлен ноль?
нигде
после минимального
вместо максимального
после максимального