Паскаль. Одномерный массив произвольной размерности заполнить…

Question

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

Answer 1

81

wveik

28 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: