2.Требуется описать массив А из 10 целочисленных элементов. Каждый элемент — случайное целое число от 0 до 100. Из предложенных вариантов выберите правильные варианты описания массива А. a. var A: array [1..10] of integer; b. var A: array [0..100] of integer; c. const A=array (1, 10, 20, 30, 40, 50, 60, 70, 80, 100) of integer; d. var A: array [0..9] of integer; e. var A = array [1..10] of integer; f. var A: array [1.10] integer; 3. Дан фрагмент программы: Впишите пропущенные числовые значения элементов массива: A[1]:=1; A[2]:=1; for i:=3 to 7 do A[i]:=A[i-1]+ A[i-2]; A[1]=1; A[2]=1; A[3]= ; A[4]= ; A[5]= ; A[6]= ; A[7] =13 4. Дан фрагмент программы, который в массиве из 10 случайных целых чисел от 1 до 100 находит элемент с максимальным значением. Если таких элементов несколько, то программа должна вывести последний из них. Заполните пропуски в программе, выбрав правильные ответы из списка.m:= [0 / 1 / 100]; for i:= 1 to 10 do if A[i] [<, <=, >, >=, <>] A[m] then [A[i]:=m; m:= A[i]; i:=m; m:=i]; writeln([A[max] / A[m] / max / m /); 5. Дан фрагмент программы, который находит произведение элементов массива А. Дополните программу: For x:=1 to n do ; P :=0; P :=A[1]; P:=1; P := A * P; P:= A[x] *A[x+1] P:=P * A[x]; 6. Дан массив из 10 целых чисел. Установите соответствие между требованием задачи и фрагментом программы на языке Pascal. ответ записать в формате, например , а-е…. a. t:=0; for i:=1 to 10 do if A[i] mod 2=1 then t:=t+a[i]; b. t:=0; for i:=1 to 10 do if A[i]>=0 then t:=t+a[i]; c. t:=10; for i:=1 to 10 do if A[i]<0 then t:=t-1; d. t:=0; for i:=1 to 10 do if i mod 2=1 then t:=t+1; e. Найдите количество неотрицательных элементов в массиве. f. Найдите количество нечетных элементов в массиве. g. Найдите сумму элементов массива, стоящих на нечетных местах. h. Найдите сумму неотрицательных элементов массива. 7. Необходимо заполнить массив К квадратами чисел от 1 до 100 и вывести его на экран. Расположите строки программы по порядку. В ответе записать номера строк по порядку 1. const n=100; 2. K[i]:= i* i; 3. var K: array [1..n] of integer; 4. begin 5. end 6. program N1; 7. for i:=1 to n do begin 8. write(K[i], ' ') 9. i: integer; 10. end.

Описание массива А из 10 целочисленных элементов можно выполнить с использованием следующих вариантов:

a. var A: array [1..10] of integer; - этот вариант правильный, так как он описывает массив А, состоящий из 10 элементов с индексами от 1 до 10.

b. var A: array [0..100] of integer; - этот вариант неправильный, так как он описывает массив А, состоящий из 101 элемента с индексами от 0 до 100, а не из 10 элементов.

c. const A=array (1, 10, 20, 30, 40, 50, 60, 70, 80, 100) of integer; - этот вариант неправильный, так как он описывает константный массив А с заданными значениями, а не случайными числами.

d. var A: array [0..9] of integer; - этот вариант правильный, так как он описывает массив А, состоящий из 10 элементов с индексами от 0 до 9.

e. var A = array [1..10] of integer; - этот вариант неправильный, так как он использован неверный синтаксис для объявления массива.

f. var A: array [1.10] integer; - этот вариант неправильный, так как он использован неверный синтаксис для объявления массива.

Таким образом, правильные варианты описания массива А из 10 целочисленных элементов - a. var A: array [1..10] of integer; и d. var A: array [0..9] of integer;.

------------------------------------------------------------------------------------------------------------------

В фрагменте программы, элементы массива А заполняются по следующему алгоритму:

A[1]:=1;
A[2]:=1;
for i:=3 to 7 do
A[i]:=A[i-1]+ A[i-2];

После выполнения данного фрагмента программы, значения элементов массива будут следующими:

A[1]=1;
A[2]=1;
A[3]=2;
A[4]=3;
A[5]=5;
A[6]=8;
A[7]=13;

------------------------------------------------------------------------------------------------------------------

В данном фрагменте программы на языке Pascal, который находит элемент с максимальным значением в массиве из 10 случайных целых чисел от 1 до 100, заполнив пропуски, получится следующее:

m:= 0;
for i:= 1 to 10 do
if A[i] > m then
m:= A[i];
writeln(m);

------------------------------------------------------------------------------------------------------------------

Для нахождения произведения элементов массива А, можно использовать следующий фрагмент программы:

P := 1; // Изначально произведение равно 1
for x:=1 to n do
P := A[x]*P;

------------------------------------------------------------------------------------------------------------------

Соответствие между требованиями задачи и фрагментом программы на языке Pascal можно определить следующим образом:

a. t:=0;
for i:=1 to 10 do
if A[i] mod 2=1 then
t:=t+A[i];

Этот фрагмент программы находит сумму нечетных элементов массива.

b. t:=0;
for i:=1 to 10 do
if A[i]>=0 then
t:=t+A[i];

Этот фрагмент программы находит сумму неотрицательных элементов массива.

c. t:=10;
for i:=1 to 10 do
if A[i]<0 then
t:=t-1;

Этот фрагмент программы уменьшает значение t на 1 для каждого отрицательного элемента массива.

d. t:=0;
for i:=1 to 10 do
if i mod 2=1 then
t:=t+1;

Этот фрагмент программы находит количество элементов массива с нечетными индексами.

Ответ: e. Найдите количество неотрицательных элементов в массиве.

------------------------------------------------------------------------------------------------------------------

Для заполнения массива К квадратами чисел от 1 до 100 и вывода его на экран, строки программы должны быть расположены следующим образом:

1. const n=100;
2. var K: array [1..n] of integer;
3. for i:=1 to n do
K[i]:= i* i;
4. begin
5. for i:=1 to n do
write(K[i], ' ');
6. end
7. program N1;
8. var i: integer;

Таким образом, номера строк программы в порядке выполнения: 1, 2, 8, 4, 3, 5, 6.