41

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

mrmaykota 31 марта 2023

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

категория: информатика

81

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.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...