Задания

1. Значения двух массивов А[1..100] и В [1..100] задаются с помощью следующего фрагмента программы:

…………….

For n:=1 to 100 do

A[n]:=n-100;

For n:=1 to 100 do

B[n]:=A[n]*n

…………….

Сколько элементов массива В будут иметь положительные значения?

2. Напишите пропущенные команды. Ввести массив D, из 138 элементов целого типа, нумерация начинается с 1 и заменить не четные элементы на число 496. Вывести элементы массива после замены.

Program Primer;

________________________;

f: integer;

BEGIN

For J:=1 to _____ do __________________________

For j:=1 to _____ do___________________________

If ____________________________ then ____________

For f:=1 to __________ do ______________________________

End.

3. Как выглядит массив А, состоящий из 4 строк и 5 столбцов, если А(I,j) = i*j ?

1) 2) 3)

4. Определите значения следующих элементов массива:

A[1,5]=_____ ,

A[5,1]=_____ ,

A[6,4]=_____ ,

A[4,5]=_____ ,

A[2,3]=_____ ,

A[4,2]=_____ ,

A[3,2]=______.

Определите месторасположение элементов со следующими значениями:

A[ …..,…..]= 17, A[…..,..…]= 29, A[ .. ..,…..]= 30,

A[..…,..…]= 16, A[ ....,…..]= 1, A[…..,..…]= 27.

Значения двумерного массива задаются с помощью вложенного оператора цикла в представленном фрагменте программы. Чему будет равно значение B(2,4)?

……….. for n:=1 to 5 do for k:=1 to 5 do B[n,k]:=n+k; …………..

5. Дан фрагмент программы, обрабатывающей двухмерный массив A размера

n×n. Выберите правильный ответ, когда данный алгоритм меняет местами:

	………… k:=1; for i:=1 to n do begin c:=A[i,i]; A[i,i]:=A[k,i]; A[k,i]:=c; end ; ………..
1)	два столбца в таблице
2)	две строки в таблице
3)	элементы диагонали и k-ой строки таблицы
4)	элементы диагонали и k-го столбца таблицы

6. Задана целочисленная квадратная матрица со значениями, показанными на рисунке:

Определить значения, которые будут содержаться во всех элементах матрицы, после выполнения следующего фрагмента:

Var s,i,j: integer;

A: array[1..3,1..3] of integer;

..................

for i:=1 to 3 do

begin

s:-=0;

for j:=3 downto 1 do begin

s:=s+a[i,j];

a[i,j]:=s;

end; end;

..................

7. Укажите, что будет напечатано в результате выполнения следующей программы:

Var a:array[1..3, 1..3] of integer;

i,j: integer;

Begin

For i:=3 downto 1 do

For j:=1 to 3 do

if j > i then

a[i,j]:=10 * i + j;

else

a[i,j]:=10 * i - j;

for i:=1 to 3 do

begin

for j:=1 to 3 do

write (a[i,j], ' ')'

writeln (' ');

End;

End.

8. Отгадай кроссворд:

⁴

По горизонтали:

1. Символическое имя переменной.

2. Испытание работоспособности программы.

По вертикали:

1. Порядковый номер элемента массива.

2. Пронумерованная последовательность однотипных величин.

3. Команда записанная на языке программирования.

4. Постоянная величина.