Во Какая команда пропущена в данном участке программы, отвечающем за поиск номера максимального элемента массива. Запишите команду без пробелов. 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
Ответы
ЛЛЛЛ ,ЛЛЛЕ ,ЛЛЛТ ,ЛЛЛО ,ЛЛЕЛ ,ЛЛЕЕ ,ЛЛЕТ ,ЛЛЕО ,ЛЛТЛ ,ЛЛТЕ ,ЛЛТТ ,ЛЛТО ,ЛЛОЛ ,ЛЛОЕ ,ЛЛОТ ,ЛЛОО ,ЛЕЛЛ ,ЛЕЛЕ ,ЛЕЛТ ,ЛЕЛО ,ЛЕЕЛ ,ЛЕЕЕ ,ЛЕЕТ ,ЛЕЕО ,ЛЕТЛ ,ЛЕТЕ ,ЛЕТТ ,ЛЕТО ,ЛЕОЛ ,ЛЕОЕ ,ЛЕОТ ,ЛЕОО ,ЛТЛЛ ,ЛТЛЕ ,ЛТЛТ ,ЛТЛО ,ЛТЕЛ ,ЛТЕЕ ,ЛТЕТ ,ЛТЕО ,ЛТТЛ ,ЛТТЕ ,ЛТТТ ,ЛТТО ,ЛТОЛ ,ЛТОЕ ,ЛТОТ ,ЛТОО ,ЛОЛЛ ,ЛОЛЕ ,ЛОЛТ ,ЛОЛО ,ЛОЕЛ ,ЛОЕЕ ,ЛОЕТ ,ЛОЕО ,ЛОТЛ ,ЛОТЕ ,ЛОТТ ,ЛОТО ,ЛООЛ ,ЛООЕ ,ЛООТ ,ЛООО ,ТЛЛЛ ,ТЛЛЕ ,ТЛЛТ ,ТЛЛО ,ТЛЕЛ ,ТЛЕЕ ,ТЛЕТ ,ТЛЕО ,ТЛТЛ ,ТЛТЕ ,ТЛТТ ,ТЛТО ,ТЛОЛ ,ТЛОЕ ,ТЛОТ ,ТЛОО ,ТЕЛЛ ,ТЕЛЕ ,ТЕЛТ ,ТЕЛО ,ТЕЕЛ ,ТЕЕЕ ,ТЕЕТ ,ТЕЕО ,ТЕТЛ ,ТЕТЕ ,ТЕТТ ,ТЕТО ,ТЕОЛ ,ТЕОЕ ,ТЕОТ ,ТЕОО ,ТТЛЛ ,ТТЛЕ ,ТТЛТ ,ТТЛО ,ТТЕЛ ,ТТЕЕ ,ТТЕТ ,ТТЕО ,ТТТЛ ,ТТТЕ ,ТТТТ ,ТТТО ,ТТОЛ ,ТТОЕ ,ТТОТ ,ТТОО ,ТОЛЛ ,ТОЛЕ ,ТОЛТ ,ТОЛО ,ТОЕЛ ,ТОЕЕ ,ТОЕТ ,ТОЕО ,ТОТЛ ,ТОТЕ ,ТОТТ ,ТОТО ,ТООЛ ,ТООЕ ,ТООТ ,ТООО
Всего: 128
var
a : array [1..4] of char;
i, k, l, m, N : byte;
begin
a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О';
for i := 1 to 3 do begin
for k := 1 to 4 do begin
for l := 1 to 4 do begin
for m := 1 to 4 do begin
if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end;
end;
end;
end;
end;
writeln('Всего: ', N)
end.
Всего: 128
var
a : array [1..4] of char;
i, k, l, m, N : byte;
begin
a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О';
for i := 1 to 3 do begin
for k := 1 to 4 do begin
for l := 1 to 4 do begin
for m := 1 to 4 do begin
if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end;
end;
end;
end;
end;
writeln('Всего: ', N)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Процедура форматирования текста предусматривает
Автор: chechina6646
решить задачи по информатике, поэтому могу бан
Автор: alexsan-0837
Программа нәтижесі a = 20b = a + 4 c = b × 100print(a)1. 242. 20003. 24004. 400
Автор: Ромеовна1527
В каком году эргономика сформировалась как наука
Автор: firsova5911
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