Проверочная работа по одномерным массивам Pascal

Проверочная работа по одномерным массивам

1. Что такое массив?

1. Ограниченная совокупность различных элементов
2. Ограниченная упорядоченная совокупность однотипных величин
3. Совокупность ограниченного числа логически связанных компонент, принадлежащих к разным типам

2.  Что такое индекс массива?

1. Размерность массива;
2. Номер элемента массива;
3. Объем массива.

3.  Массив D состоит из нечетных чисел от 11 до 21. Установите тип массива:

1. вещественный
2. символьный
3. целый
4. логический

4.  Массив D состоит из действительных чисел от 0.1 до 0.9 с шагом 0.1. Определите формулу для заполнения массива:

1. D[i]:=i+0.1
2. D[i]:=i*0.1*0.1
3. D[i]:=i*0.1
4. D[i]:=i-1

5. Укажите правильное описание массива

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

2.  Var А, В, С: ARRAY [1..50] OF REAL or INTEGER;

3.  Var А: ARRAY [1..50 OF REAL];

6. Какая команда заполняет массив с клавиатуры?

1. Read(A[i])

2. Rаndom(s)

3.  ROUND

7. Что производит следующий фрагмент программы?

for i:=1 to n do write(a[i],' ');

1.  Ввод элементов массива с клавиатуры.

2.  Вывод элементов массива на экран монитора.

3.  Ввод элементов массива из файла

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

Program pr; Var  a: array [1..5] of integer;  i, count: integer; s:real; begin s:=0; count:=0; for i:=1 to 5 do begin readln (a[i]) ; if  a[i] >0 then begin s:=s+a[i] ; count:=count+1; end; end; s:=s/count; writeln (s) ; end.

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

1. сумму значений элементов массива с четными индексами;
2. сумму значений положительных элементов;
3. количество элементов, значение которых четное число;
4. среднее арифметическое значение положительных элементов массива.

9.  Сколько элементов в массиве A : array[0..9] of integer;

10.

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

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

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

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],' ');

 end;

 s:=0;

 For i:=1 to n do

 s:=s+a[i];

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

 end.

11. Что выдаст программа  после выполнения:

Program q1;

const N = 11;

var a: array[1..N] of integer;

    i,s: integer;

begin 

        for i:=1 to N do begin 

         a[i] := i-6;

         end;

         s := 0; 

        for i:=1 to N do

         if a[i] > 0 then s := s + a[i];

    writeln(‘s=’,s);

end.

12. Дан фрагмент программы. Чему будет равно значение массива A[2]+A[5] на выходе:

   for i :=0  to  5  do

         a[i]  :=  i;

    for  i :=0 to 5 do

         a[i] := a[i] + 1;

13.  

Напишите программу для подсчета количества отрицательных элементов в целочисленном массиве из 30 элементов, заполненных случайными числами в интевале [-50;50].  Если в массиве нет отрицательных элементов, программа должна сообщать об этом.