Задание:
Паскаль. Одномерный массив произвольной размерности заполнить случайными числами [-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.
Знаете другой ответ?