Во Какая команда пропущена в данном участке программы, отвечающем за поиск номера максимального элемента массива. Запишите команду без пробелов.
1)r:=1;
2)for i:=2 to n do
3) if a[i]>a[r]
4) then ...
Во Установите верный порядок следования команд при поиске в массиве из 50 элементов, количество элементов равных k.
Варианты ответов
1)i:=0;
2)for i:=1 to n do
3)if a[i]=k then
4)i:=i+1;
Во Отметьте правильное утверждение о массивах в языке Паскаль.
Варианты ответов
1)элементы массива могут быть разных типов
2)все элементы массива должны быть одного типа
3)элементы всегда нумеруются с единицы
Во Требуется заполнить массив именно так:
X = [1 3 5 7 9 11]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
Варианты ответов
1)X[k] := k
2)X[k] := 2*k
3)X[k] := 2*k - 1
4)X[k] := 2*k + 1
Во Для заданного массива запишите без пробелов команду присваивания элементу с индексом 3 значение суммы элементов с индексами 7 и 4.
Во Что производит следующий фрагмент программы?
For i:=1 to 8 do writeln (a[i] );
Варианты ответов
1)Ввод элементов массива по формуле
2)Ввод элементов массива с клавиатуры
3)Вывод элементов массива в столбец
4)Вывод элементов массива в строку
Во Что выполняет фрагмент программы?
For i:=1 to 10 do readln(A[i]);
Варианты ответов
1)Ввод элементов массива по формуле
2)Ввод элементов массива с клавиатуры
3)Вывод элементов массива в столбец
4)Вывод элементов массива в строку
Во Что выполняет фрагмент программы?
For i:=1 to 10 do A[i]:=random(1000)-500;
Варианты ответов
1)заполнение массива с клавиатуры
2)выводит элементы массива на экран
3)заполнение массива с датчика случайных чисел
4)обнуляет элементы массива
Во Что выполняет фрагмент программы?
For i:=1 to 10 do A[i]:=0;
Варианты ответов
1)заполнение массива с клавиатуры
2)выводит элементы массива на экран
3)заполнение массива с датчика случайных чисел
4)обнуляет элементы массива
Во Какое количество данных может находиться в данном массиве var ch: array[6..18] of integer;?
Варианты ответов
1)6
2)12
3)18
4)13
Во Числовой одномерный массив А заполнен последовательно числами 4, 8, 13, 25. Укажите значение элемента А[2].
Варианты ответов
1)8
2)4
3)25
4)13
Во В какой строке НЕ правильное описание массива?
Варианты ответов
1)var ch: array[1..10] of integer;
2)var stih: array[1,5..7] of real;
3)var STL23: array[2..108] of real;
Во Для подсчета количества положительных элементов массива будем использовать оператор…
Варианты ответов
1)If a[i]>0 then k+1;
2)If a[i]>0 then k:=k+a[i];
3)If a[i]>0 then k:=k+1;
4)If a[i]>0 then k+a[i];
Во В записи D[4]=3.5, D обозначает…
Варианты ответов
1)имя ячейки
2)имя массива
3)обозначение типа
4)размерность массива
Во Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов
A[3] := 5;
A[4] := 6;
A[3] = A[4];
A[4] := A[3]?
Варианты ответов
1)A[3] = 6; A[4] = 6
2)A[3] = 6; A[4] = 5
3)A[3] = 5; A[4] = 6
4)A[3] = 5; A]4] = 5
n=15;
var
i,np,nn,amax:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
np:=0; nn:=0;
for i:=1 to n do begin
a[i]:=Random(51)-15;
Write(a[i],' ');
if a[i]>0 then Inc(np)
else if a[i]<0 then Inc(nn);
end;
Writeln;
if np/nn>2 then begin
amax:=a[i];
for i:=2 to n do
if a[i]>amax then amax:=a[i];
Write('Выходной массив: ');
for i:=1 to n do begin
if a[i]<0 then a[i]:=1
else
if a[i]>0 then a[i]:=a[i]*amax;
Write(a[i],' ')
end;
Writeln
end
else Writeln('В массив изменения не вносятся')
end.
Пример работы программы
Исходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8
Выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1