НАДО ) Что такое массив? 1) Табличные данные 2) Набор данных, которые имеют порядковый тип 3) Совокупность однотипных данных, хранящихся в последовательных ячейках памяти 2. ( ) Индексом элемента называется… 1) Номер элемента в массиве. 2) Последний элемент в массиве. 3) Значение элемента массива. 3. ( ) Для заполнения массива случайными числами мы должны подключить датчик случайных чисел, используя команду… 1) read 2) Randomize 3) A[i]:=? 4. ( ) Найдите правильное описание массива 1) D[1..5]:array of integer; 2) Array D: [1..5] of real; 3) D: array[1..5] of real 5. ( ) Какой ряд данных можно назвать массивом? 1) 2.3, 5.7, 10.89 2) а, 4, б, 5, с, 6 3) 3, 6, 3, 2, massiv 6. ( ) Имеется одномерный массив А, содержащий N элементов. Нумерация элементов массива начинается с 1. Определите, в каком порядке необходимо записать операторы (части операторов) на языке Паскаль из предложенного списка для корректного решения задачи определения суммы положительных элементов массива. Результат работы должен находится в переменной S. 1) For k:=1 to N do 2) then 3) S:=S+A[k]; 4) S:=0; 5) If A[k] > 0 7. ( ) Имеется одномерный массив А, содержащий N элементов. Нумерация элементов массива начинается с 1. Необходимо найти элемент массива равный Х. Если таких элементов несколько нужно найти такой элемент, находящийся в конце массива (имеющий индекс с наибольшим номером среди всех таких элементов Определите, в каком порядке необходимо записать операторы (части операторов) на языке Паскаль из предложенного списка для корректного решения данной задачи. Результат работы должен находиться в переменной P. Возможно некоторые операторы (части операторов) останутся неиспользованными. 1) for k:=1 to N do 2) P:=k; 3) if (X=A[k]) 4) P:=A[k]; 5) then 6) end 7) begin 8. ( ) Имеется одномерный массив А, содержащий N элементов. Нумерация элементов массива начинается с 1. Необходимо определить значение максимального элемента массива. Дан фрагмент программы на языке Паскаль, решающий эту задачу. Заполните пропуски (троеточия) в этом фрагменте. Результат находится в переменной T. T:=...; For К:=2 to N do if T 9. ( ) Имеется одномерный массив А, содержащий N элементов. Нумерация элементов массива начинается с 1. Необходимо найти количество отрицательных элементов массива. Определите, в каком порядке необходимо записать операторы (части операторов) на языке Паскаль из предложенного списка для корректного решения данной задачи. Результат работы должен находиться в переменной K. Возможно некоторые операторы (части операторов) останутся неиспользованными. 1) begin 2) K:=K+1; 3) if (0>A[k]) 4) K:=K+A[I]; 5) then 6) I:=I+1; 7) while I<=N do 8) i:=1; 9) end; 10) k:=0;
Ответы
Const
nn = 50;
var
a,b,nb:array[1..nn] of integer;
i,n,j: integer;
begin
Write('Введите количество элементов в массиве (n<51): ');
Read(n);
Writeln('Вводите элементы массива');
j:=0;
for i:=1 to n do
begin
Read(a[i]);
if a[i]<0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end
end;
if j>0 then begin
Write('Отрицательные элементы: ');
for i:=1 to j do Write(b[i],' ');
Writeln;
Write('Индексы отрицательных элементов в массиве:');
for i:=1 to j do Write(nb[i]:3);
Writeln
end
end.
Результаты тестирования:
Введите количество элементов в массиве (n<51): 9
Вводите элементы массива
3 5 -2 3 -2 0 -6 -8 1
Отрицательные элементы: -2 -2 -6 -8
Индексы отрицательных элементов в массиве: 3 5 7 8
Введите количество элементов в массиве (n<51): 8
Вводите элементы массива
-1 -2 -3 -4 0 -1 2 3
Отрицательные элементы: -1 -2 -3 -4 -1
Индексы отрицательных элементов в массиве: 1 2 3 4 6
nn = 50;
var
a,b,nb:array[1..nn] of integer;
i,n,j: integer;
begin
Write('Введите количество элементов в массиве (n<51): ');
Read(n);
Writeln('Вводите элементы массива');
j:=0;
for i:=1 to n do
begin
Read(a[i]);
if a[i]<0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end
end;
if j>0 then begin
Write('Отрицательные элементы: ');
for i:=1 to j do Write(b[i],' ');
Writeln;
Write('Индексы отрицательных элементов в массиве:');
for i:=1 to j do Write(nb[i]:3);
Writeln
end
end.
Результаты тестирования:
Введите количество элементов в массиве (n<51): 9
Вводите элементы массива
3 5 -2 3 -2 0 -6 -8 1
Отрицательные элементы: -2 -2 -6 -8
Индексы отрицательных элементов в массиве: 3 5 7 8
Введите количество элементов в массиве (n<51): 8
Вводите элементы массива
-1 -2 -3 -4 0 -1 2 3
Отрицательные элементы: -1 -2 -3 -4 -1
Индексы отрицательных элементов в массиве: 1 2 3 4 6
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Переведите число из двоичной системы счисления в десятичную: 110011 1000111
Автор: ирина_Андреевич1634
program reverse;
var
n, m: integer;
begin
write('Введите число N: ');
read(n);
while (n > 0) do
begin
m := m * 10 + n mod 10;
n := n div 10;
end;
write('Перевернутое число: ', m);
end.
Объяснение:
program reverse; // Название программы
var
n, m: integer; // Создание целочисленных переменных по условию
begin // Начало программы
write('Введите число N: '); // Вывод сообщения в консоль
read(n); // Считываем число с клавиатуры
while (n > 0) do // Пока значение переменной n > 0 выполняем
begin // Начало цикла
m := m * 10 + n mod 10; // Вписываем в нужный разряд (m * 10) последнюю цифру введенного числа (n mod 10 - остаток от деления на 10)
n := n div 10; // Отделяем последнюю цифру от введенного числа путем целочисленного деления на 10
end; // Конец цикла
write('Перевернутое число: ', m); // Вывод ответа
end. // Конец программы