Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Паскаль.Одномерный массив произвольной размерности заполнить случайными числами [-30;25].Найти количество элементов значение которых кратно 3 и имеют четные номера

Ответ оставил Гость

const

  n = 100;

var

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

  i, count : integer;

begin

  count := 0;

  for i := 1 to n do

    a[i] := round (random (55)) - 30;

  for i := 1 to n do

    if  (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count);

  writeln  (count);

end.