НАДО ) Что такое массив? 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;
n,k,i:integer;
begin
for n:=1 to 2 do
begin
writeln('Введите строку ',n,':');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
case s[i] of
'[': k:=k+1;
']': k:=k-1;
end;
end;
if k=0
then writeln('В строке ',s,' количество [ и ] одинаково')
else writeln('В строке ',s,' количество [ и ] не одинаково');
end;
end.
Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.