Подсчитать количество четных элементов в массиве для

Const   n = 20; var   i, e, p: integer;   a: array[1..n] of integer; begin   randomize;   writeln('массив а: ');   p : = 0;   for i : = 1 to n do   begin       e : = random(100) - 50;       a[i] : = e;       write(e: 5);       if e mod 2 = 0 then p : = p + 1   end;   writeln;   writeln('количество четных элементов в массиве равно ', p) end. тестовое решение: массив а:     49    19    42    41  -21  -25    42    21    45    -1  -18    29  -48    21  -34    26  -25      4      5    -8 количество четных элементов в массиве равно 8

pascalabc.net

begin

  var n : = readinteger('введи длину массива: ');

  var a : = seqrandomreal(n, 1.0, 99.0).select(p -> round(p,;

  a.println;

  var m : = readinteger('задайте номер элемента');

  if not (m in range(1, n)) then

  begin

    print('недопустимый номер');

    exit

  end;

  var im : = a[: m].indexmin;

  var min : = a[im];

  swap(a[im], a[n-1]);

  a.transform(p -> p / min);

  a.println

end.

объяснение:

системное по - то что уже включено в операционную систему, то есть эти программы уже установлены

прикладное по - то что пользователь может установить на свой пк

системы программирования - то на чём все вышеуказанные программы пишутся

т.е.

системное по:

    1) включено в ос

    2) без этого с компьютером нельзя будет работать

прикладное по:

    1) может скачать пользователь

    2) без этого с компьютером можно будет работать, но не так эффективно

системы программирования:

    1) некоторые включены в ос, иные нет

    2) на этом и держатся все программы, и системные, и прикладные