Одномерные массивы 3 вариант

Описание массива производится для того, чтобы: 

Выберите способ объявления в программе массива М, состоящего из 30 вещественных чисел. 

Дан фрагмент программы для заполнения одномерного массива A с помощью ввода данных с клавиатуры. В какой строке текста программы допущена ошибка?
1 for i:=1 to n do begin
2 write(`a[`,i,`]=?`);
3 readln(a);
4 end; 

В таблице Work хранятся данные о количестве заказов, принятых фирмой "Cказка" с первого по 15 ноября. (Work[l] - число заказов, принятых 1 ноября, Work[2] - 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m: integer;    
    Work: array[1..15] of integer;
Begin                    
  Work[1] = 5; Work[2] = 4
  Work[3] = 5; Work[4] = 7
  Work[5] = 6; Work[6] = 12
  Work[7] = 7; Work[8] = 3
  Work[9] = 9; Work[10] = 7
  Work[11] = 0; Work[12] = 9
  Work[13] = 1; Work[14] = 0
  Work[15] = 1;        
  m := 0;                
  For k:=1 to 15 Do    
    If Work[k] > 6 Then    Begin            
    m := m + 1;    
    End;                
  Writeln(m);            
End.

В таблице Аni хранятся данные о численности обезьян в зоопарке города Тулы (Ani[l] - число обезьян в 2001 году, Апі[2] - в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m:    integer;    
    Ani: array[1..12] of integer;
Begin            
  Ani[1]:= 17;    Ani[2]:= 17;
  Ani[3]:= 19;    Ani[4]:= 21;
  Ani[5]:= 23;    Ani[6]:= 22;
  Ani[7]:= 24;    Ani[8]:= 16;
  Ani[9]:= 19;    Ani[10]:= 21;
  Ani[11]:= 17; Ani[12]:=11;
  m := 0;            
  For k:=1 to    12 Do    
    If Ani[k] = 17 Then    Begin        
      m := m + Ani[k];    
    End;        
  Writeln (m) ;        
End.

В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[l] - число россиян в 2001 году, Sea[2] - в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, s: integer;    
    Sea: array[1..12] of integer;
Begin    
  Sea[1] = 170; Sea [2] = 170;
  Sea [3] = 190; Sea [4] = 210;
  Sea [5] = 230; Sea [6] = 220;
  Sea [7] = 240; Sea [8] = 160;
  Sea [9] = 190; Sea [10] = 210;
  Sea [11] = 170; Sea [12] =170;
  s = 100;    
  For k = 1 to 12 do    
    If Sea [k] > 220 Then Begin    
      s = s + Sea [k];    
    End;    
  Writeln(s);    
End.

В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом "Полянка". (Tur[l] - число ребят в 2001 году, Tur[2] - в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m:    integer;    
    Tur: array[ 1..11] of    integer;
Begin        
  Tur[1] = 1; Tur[2] = 11;
  Tur [3] = 8; Tur[4] = 12;
  Tur[5] = 5; Tur[6] = 6;
  Tur[7] = 15; Tur [8] = 16;
  Tur[9] = 16; Tur[10] = 21;
  Tur[11] = 7;    
  m = 0;        
  For k = 1 to 11 Do    
    If Tur[k] > 12 then    Begin    
      m := m + Tur[k];
    End;        
  Writeln(m) ;    
End.

Для получения случайных чисел из промежутка [0;6] используют следующую функцию:

Массив С заполняется случайными целыми числами от 10 до 20. Выберите правильный вариант основной команды цикла. 

Выберите правильные варианты вывода элементов массива на печать в столбец. 

Дана программа:
Program E2_1;
Var a: Array [1..8] Of Integer;
M, k: Integer;
Begin
For k = 1 To 8 Do Readln (a[k]);
M = a[1];
For k = 2 To 8 Do
If M < a[k] Then M = a[k];
Write (M)
End.
Сколько раз будет выполнен оператор M := a[k] при заданном массиве (20, 28, 7, 9, 4, 35, 2, 12)? 

При наборе программы вычисления суммы положительных элементов массива
Program E2_2;
Var a: Array [1..8] Of Integer;
s, k: Integer;
Begin
For k := 1 To 8 Do Readln (a[k]);
s := 0;
For k := 1 To 8 Do
If a[k] >0 Then s := s + a[k];
Writeln (s)
End
в записи оператора s := s + a[k] была допущена ошибка - вместо него был записан оператор s := s + 1. Каким оказался ответ после исполнения неверной программы, если в качестве элементов массива были введены числа:    1, -3, -2,- 4, -5, -6, -7, 8? 

Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3] := 2;
A[4] := 3;
B := A[3];
A[3] := A[4];
A[4] := B?