2. Напишите программу вычисления в массиве из n элементов, заданных датчиком случайных чисел из промежутка от -13 до 25, количества четных элементов.

Спасибо тебе , спас

Ошибку выводит в этой строчке : m[i]:=-13+Random(39);

упс, это я забыл описать сам массив

после Var добавить: m : array[1..n] of Integer;

исправил сам ответ

Const n = 10;Var  i,k : Byte;  m : array[1..n] of Integer;Begin  Randomize;  k:=0;  For i:=1 to n do  Begin   m[i]:=-13+Random(39);   Write(m[i],' ');   If not Odd(m[i]) then Inc(k);  end;  Writeln;  Writeln('Количество чётных элементов: ',k);end.

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016begin  var a:=ArrRandom(Readinteger('n='),-13,25); a.Println;  Writeln('k=',a.Where(x->x.IsEven).Count)end.Тестовое решение:n= 1517 20 22 -11 1 10 22 3 1 3 16 9 23 -8 15k=6