Регистрация
wrrrr
19.06.2020 09:33
Информатика
Есть ответ 👍

Используя оператор print()
информатика​

151
488
Посмотреть ответы 1

Ответы на вопрос:

Миша20072007
Миша20072007
4,7(22 оценок)

случайно сгенерированный массив из 15 элементов в диапазоне от -20 до 20.

const max = 15;

var

  a: array [1 .. max] of integer;

  i, k: integer;

begin

  randomize;

  k : = 0;

  writeln(' *** сгенерированный массив *** ');

 

  for i : = 1 to max do

  begin

    a[i] : = random(41) - 20;

    write(' ', a[i]);

    if ((i mod 2) < > 0) and (a[i] mod 2 = 0) then

      inc(k);

  end;

 

  writeln;

  writeln('кол-во четных элементов на нечетных местах = ', k);

end.

Популярно: Информатика