Вопрос по информатике:
В массиве 10 на 5 заполненном случайными двузначными числами, посчитать количество чисел кратных 3, и вывести эти числа в строчку.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.10.2016 00:13
- Информатика
- remove_red_eye 2234
- thumb_up 46
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(10,5,10,99);
a.Println(3); Writeln(3*a.ColCount*'-');
var b:=a.Rows.SelectMany(x->x).Where(x->x mod 3=0);
Write('[',b.Count,']='); b.Println
end.
Пример
67 37 13 90 96
58 43 59 42 11
85 54 94 13 33
20 97 13 65 74
31 15 64 36 32
21 37 34 38 95
79 97 95 90 81
24 40 97 17 91
69 10 63 51 33
54 83 83 93 99
---------------
[18]=90 96 42 54 33 15 36 21 90 81 24 69 63 51 33 54 93 99
- 25.10.2016 03:30
- thumb_up 8
N = 10;
M = 5;
Var
A:array[1..N,1..M] of byte;
i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(90)+10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Write('Числа, кратные трём:');
For i:= 1 to N do
For j:= 1 to M do
if A[i,j] mod 3 = 0 then
Begin
Write(' ',A[i,j]);
k:=k+1
End;
WriteLn;
WriteLn('Их количество: ',k)
End.
Пример работы программы:
Исходный массив:
89 38 43 42 57
43 23 71 61 82
77 80 44 69 92
35 33 97 48 78
58 38 58 88 62
49 43 75 14 68
20 19 18 43 47
13 84 14 46 86
26 22 87 69 75
68 84 88 38 49
Числа, кратные трём: 42 57 69 33 48 78 75 18 84 87 69 75 84
Их количество: 13
- 26.10.2016 16:42
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.