Самостоятельная работа

Вариант 1

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

1) массив состоял из 15 элементов вещественного типа;

2) значения элементов массива должны меняться в интервале от 0 до 5;

3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.

Program massiv;

Const n=10;

Var a:array[1..n] of integer;

s,i: integer;

Begin

WriteLn('Исходный массив:');

For i:=1 to n do

begin

a[i]:=random(10);

Write('a[',i,']=',a[i],' ');

WriteLn (' ');

end;

s:=0;

For i:=1 to n do

s:=s+a[i];

WriteLn('Сумма всех элементов массива S=',s);

end.

Вариант 2

1. Изменить программу нахождения произведения элементов массива таким образом, чтобы:

1) массив состоял из 20 элементов целого типа;

2) значения элементов массива должны меняться в интервале от 8 до 27;

3) в результате выполнения программы должно быть найдено сумма всех элементов массива.

Program massiv;

Const n=10;

Var a:array[1..n] of real;

s,i: real;

Begin

WriteLn('Исходный массив:');

For i:=1 to n do

begin

a[i]:=random(10);

Write('a[',i,']=',a[i],' ');

WriteLn (' ');

end;

s:=0;

For i:=1 to n do

s:=s*a[i];

WriteLn('произведение всех элементов массива S=',s);

end.

Массивы двумерные

Задания

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)

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

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; …………..

6. Дан фрагмент программы, обрабатывающей двухмерный массив 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. Отгадай кроссворд:

													3
										2							4
					1
								2
			1

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

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

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

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

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

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

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

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