Вопрос по информатике:
Записать в массив 30 случайных целых чисел от 1 до 12 и вычислить произведения тех элементов, значение которых кратны 3. паскаль
- 09.10.2016 04:05
- Информатика
- remove_red_eye 13566
- thumb_up 45
Ответы и объяснения 1
Const
N=30;
varA:array [1..N] of integer;
i,k,g:integer;
begin
g:=1;
Writeln('Введите массив');
For i:=1 to n do
begin
A[i]:=Random(13);
writeln('A[',i,']=',A[i]);
if (A[i] mod 3=0) and (A[i]0) then
begin k:=1; g:=g*A[i]; end;
end;
if k=1 then Writeln(g)
else writeln('Нету чисел, кратных трем.')
end.
- 01.01.1970 00:00
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.