Предмет: Информатика,
автор: Arpixx
В массиве 10 на 5 заполненном случайными двузначными числами, посчитать количество чисел кратных 3, и вывести эти числа в строчку.
Ответы
Автор ответа:
0
Const
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
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
Похожие вопросы
Предмет: Химия,
автор: arikavalberga
Предмет: Русский язык,
автор: artem5924
Предмет: История,
автор: matvej71
Предмет: Алгебра,
автор: марк28пп
Предмет: Физика,
автор: maxulybyshev