Вопрос по информатике:
В массиве из 70 целых чисел найти количество элементов, кратных 3
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.09.2015 00:42
- Информатика
- remove_red_eye 16940
- thumb_up 45
Ответы и объяснения 2
Const n = 70;
var
a: array[1..n] of integer;
i, k: integer;
begin
for i:=1 to n do readln(a[i]);
k := 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(k);
writeln(k);
end.
- 28.09.2015 09:23
- thumb_up 28
// PascalABC.NET 3.0, сборка 1128
begin
Writeln('Исходный массив');
var a:=ArrRandom(70,1,1000).Println(',');
Writeln('Количество элементов, кратных 3: ',
a.Where(x->x mod 3=0).Count)
end.
Тестовое решение:
Исходный массив
928,188,299,147,61,366,787,358,715,625,517,552,522,238,569,806,342,808,71,400,176,504,525,242,194,126,595,883,78,627,317,966,478,671,557,665,734,408,665,377,430,2,232,125,161,801,561,541,341,172,273,179,345,584,181,424,663,58,953,935,771,905,280,89,309,552,74,852,682,904
Количество элементов, кратных 3: 21
- 29.09.2015 20:41
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.