Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые
Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые значения от 0 до 1000. Напишите программу, которая находит и выводит сумму частей массива, кратных 13-ти или семнадцати. Если ни одного такого числа нет, необходимо вывести сообщение об этом. Ввод массива выполнить с поддержкою генератора случайных чисел.
Паскаль
Ирина Томашенцева
язык программирования?
Лементуева
Диана
если нужна программка на языке си, то я скину
Jurij
паскаль, пожалуйста
1 ответ
Тамара
Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Чистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от дробления на 17 либо 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if agt;0 then writeln('a = ',a) // по другому вывести "чисел нет" else writeln('чисел нет');end.
vari,a: integer;M: array [1 .. 30] of integer;
begin clrscr; // Чистка экрана randomize; // инициализирует рандом a:=0; // инициализирует аккумулятор for i:=1 to 30 do M[i] := random(1000); // заполняет массив рандомными числами for i:=1 to 30 do if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от дробления на 17 либо 13 равен 0... a := a + M[i]; // то добавить число к сумме // если аккумулятор больше 0, то вывести вывести его значение if agt;0 then writeln('a = ',a) // по другому вывести "чисел нет" else writeln('чисел нет');end.
Лидия Урядкина
блин
Boris Bukshta
он его ошибочно выслал
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов