1) определите кол-во элементов описанных массивов и их тип: a: array[1..10] of real; a: array[-2..8] of integer; 2) опишите массив: а) из 8 целых чисел, нумерация элементов начинается с 0; б) из 20 вещественных чисел, нумерация элементов начинается с 5. 3) что будет напечатано после выполнения следующих команд? const a: array[1..6] of integer = (12, -15, 14, 8, 9, 10); begin for i: =2 to 5 do if a[i] mod 2 = 0 then write (a[i]: 3); end. help!

1. 1) 10 элементов, вещественный тип
    2) 11 элементов, целочисленный тип
2. а) a: array[0..7] of integer
    б) a: array[5..24] of integer
3. Будет напечатано: 14  8

(+) - верное утверждение, (-) - неверное утверждение.
допустим: Аладин: 1(+) , значит лампа греческая и 2(-) не в 5 в.
Жасмин: 1(-) ошибка( лампа греческая), значит 2(+) в 3 веке.
Джин: 1(-) ошибка, значит 2(+) в 4 веке.
Но лампа не может быть изготовлена и в 3 и в 4 веке. значит Аладин ошибся в первом предположении.
Получается:
Аладин: 1(-) лампа не греческая, значит 2(+) в 5 веке.
Жасмин: 2(-) т.к. в 5 веке, значит 1(+) финикийская.
Джин: 1(+) не греческая, значит 2(-) не в 4 веке.
Вывод: лампа финикийская и изготовлена в 5 веке.

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:array[1..2,1..6] of integer:=
    ((12,32,41,3,4,7),(9,19,23,24,27,39));
  Writeln(a);
  var b:=MatrixRandom(10,10,6,43);
  Writeln(b)
end.

Тестовое решение:
[[12,32,41,3,4,7],[9,19,23,24,27,39]]
[[29,39,20,21,36,34,10,25,32,40],[35,12,21,17,32,7,38,25,41,29],[6,33,17,19,30,25,34,37,21,23],[11,36,12,14,36,39,14,26,33,33],[17,34,39,30,14,34,29,19,20,26],[31,11,23,43,14,39,28,6,34,17],[43,17,10,15,35,42,6,13,25,36],[37,18,35,13,18,15,38,31,11,40],[39,21,22,38,36,43,18,12,43,40],[17,13,35,22,34,43,30,29,38,15]]