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

Массив описан следующим образом:
сотые b:array[1..5] of integer=(1, 2, 3, 5, 11); 
Значение выражения    b[5]*b[4] - b[2] - b[3]*b[1]   равно.

Укажите правильное описание массива целых чисел

Обращение к элементу массива осуществляется по его: 

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

var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] = 9; Dat[2] = 11;
  Dat[3] = 10; Dat[4] = 13
  Dat[5] = 8; Dat[6] = 5
  Dat[7] = 11
  day = 0;
  for k = 1 to 7 do begin
    if Dat[k] <= 10 then
      day = day+1;
  end;
  writeln(day);
end.

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

Var k, m: integer;
    Dat: array[1..10] of integer;
Begin
  Dat[1] = 7; Dat[2] = 9;
  Dat[3] = 10; Dat[4] = 5;
  Dat[5] = 6; Dat[6] = 7;
  Dat[7] = 9; Dat[8] = 8;
  Dat[9] = 6; Dat[10] = 7;
  m = 0;
  for k = 1 to 10 do
    if Dat[k] < 8 then begin
      m := m + 1
    end;
  writeln(m)
End.

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

Var k, m: integer;
    Dat: array[1..11] of integer;
Begin
  Dat[1] = 20; Dat[2] = 25;
  Dat[3] = 19; Dat[4] = 25;
  Dat[5] = 26; Dat[6] = 22;
  Dat[7] = 24; Dat[8] = 28;
  Dat[9] = 26; Dat[10] = 21;
  Dat[11] = 27;
  m = 0;
  for k = 1 to 11 do
    if Dat[k] < 25 then begin
      m = m + 1
    end;
  writeln(m)
End.

В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по 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] = 8;            
  m := 0;                    
  For k:=1 to 15 Do        
    If Work [k] < 7 Then Begin            
      m := m + 1;        
    End;                    
  Writeln(m) ;            
End.

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

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

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

Дана программа:
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] при заданном массиве (13, 8, 7, 9, 4, 15, 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] := 5;
A[4] := 6;
A[4] = A[3];
A[3] := A[4]? 

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

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

var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] := 9; Dat[2] := 11;
  Dat[3] := 10; Dat[4] := 13;
  Dat[5] := 8; Dat[6] := 5;
  Dat[7] := 11;
  day := 0;
  for k := 1 to 7 do begin
    if Dat[k] <= 10 then
      day := day+1;
  end;
  writeln(day);
end.

В таблице А хранятся данные о количестве призеров олимпиады по программированию по 9-ти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма.

var k, score: integer;
    A: array[1..9] of integer;
begin
  A[1] :=6; A[2] := 11;
  A[3] := 7; A[4] := 12;
  A[5] := 13; A[6] := 5;
  A[7] := 9; A[8] := 3;
  A[9] :=4; 
  score := 0; 
  for k:=1 to 9 do begin
    if A[k] >= 9 then
      score:= score+A[k];
  end; 
  write(score); 
end.