10 класс_СР

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

For n:=1 to 10 do

Begin

A[n]:=-n-n;

B[11-n]:=A[n];

End;

For n:=1 to 10 do                                         

A[n]:=B[n]+10;

 Чему равен элемент массива A[8]?

Задание 2.      В программе описан одномерный целочисленный массив А с индексами от 0 до 10 и целочисленные переменные k, i. Ниже представлен фрагмент программы, в которой значения элементов сначала задаются, а затем меняются.

for i:=0 to 10 do

        a[i]:=i;

for i:=0 to 4 do

begin

        k:=a[i];

        a[i]=a[10-i];

        a[10-i]:=k;

end;

Чему будут равны элементы этого массива?

Задание 3.      Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программа?

Program pr; Var  х: array [1..100] of integer;  i, s: integer; begin        s: =0; for i:=l to 100 do begin readln (x [i]) ; if  i mod 2=0 then s:=s+x[i] ; end; writeln (s) ; end.

Данная программа определяет:

1.      сумму значений элементов массива с четными индексами;

2.      сумму значений отрицательных элементов;

3.      количество элементов, значение которых четное число;

4.      среднее арифметическое значений элементов массива с четными индексами.