Паскаль ABC. Создать двумерный массив из 3 строк и 3 столбцов ,заполнить его рандомными числами и посчитать сколько раз встречается цифра 2
Ответы
Ответ дал:
1
Ответ:
program Count2;
var
m: array [1..3, 1..3] of integer;
i, j, count: integer;
begin
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
m[i][j] := random(10);
write(m[i][j], ' ');
end;
writeln();
end;
count := 0;
for i := 1 to 3 do
for j := 1 to 3 do
if m[i][j] = 2 then
count += 1;
writeln('Ответ: ', count);
end.
Объяснение:
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад