Asetkyzy

02.09.2020 05:33 •  Информатика

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.