Вопрос по информатике:
Найти количество элементов массива целых чисел а(n),которые кратно 9 и 3 массив заполнен числами от -7до 100.
Пожаловаться
- 23.04.2018 07:43
- Информатика
- remove_red_eye 7519
- thumb_up 8
Ответы и объяснения 2
Uses Crt;
Const
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Randomize;
Write('Исходный массив:');
k:=0;
For i:= 1 to N do
Begin
A[i]:=random(108)-7;
Write(' ',A[i]);
if A[i] mod 9 = 0 then k:=k+1
End;
WriteLn;
WriteLn('Искомое количество: ',k);
ReadLn;
End.
Const
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Randomize;
Write('Исходный массив:');
k:=0;
For i:= 1 to N do
Begin
A[i]:=random(108)-7;
Write(' ',A[i]);
if A[i] mod 9 = 0 then k:=k+1
End;
WriteLn;
WriteLn('Искомое количество: ',k);
ReadLn;
End.
Пожаловаться
- 25.04.2018 05:29
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы