Дан двумерный массив размерностью 4х6 и величина N. Подсчитать количество строк, в которых есть элемент равный N (программа Паскаль)
215
330
Ответы на вопрос:
USES Crt;
LABEL M1;
VAR
M:ARRAY[0..4,0..6] OF INTEGER;
I,J,K:BYTE; N:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения элементов двумерного массива');
FOR I:=1 TO 4 DO Begin
FOR J:=1 TO 6 DO Begin
M[I,J]:=Random(50); Write(M[I,J]:3);
End; WriteLn;
End; WriteLn;
Write(' Введите значение величины N '); ReadLn(N);
K:=0;
{ Нахождение строк, в которых имеется величина N }
FOR I:=1 TO 4 DO Begin
FOR J:=1 TO 6 DO
IF M[I,J]=N THEN Begin K:=K+1; GOTO M1; End;
M1: End;
WriteLn(' Количество строк, в которых есть элемент равный ',N,' = ',K);
END.
LABEL M1;
VAR
M:ARRAY[0..4,0..6] OF INTEGER;
I,J,K:BYTE; N:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения элементов двумерного массива');
FOR I:=1 TO 4 DO Begin
FOR J:=1 TO 6 DO Begin
M[I,J]:=Random(50); Write(M[I,J]:3);
End; WriteLn;
End; WriteLn;
Write(' Введите значение величины N '); ReadLn(N);
K:=0;
{ Нахождение строк, в которых имеется величина N }
FOR I:=1 TO 4 DO Begin
FOR J:=1 TO 6 DO
IF M[I,J]=N THEN Begin K:=K+1; GOTO M1; End;
M1: End;
WriteLn(' Количество строк, в которых есть элемент равный ',N,' = ',K);
END.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
pstrebykina23.06.2020 20:30
-
Radmirka133707.04.2023 22:29
-
MaXD133728.09.2022 03:20
-
vladyulin30.01.2022 10:20
-
roksanaatalan24.09.2022 01:23
-
bezhkinyova20.10.2020 01:38
-
алиная209.10.2020 08:10
-
StasSav0608.05.2021 02:02
-
ГульнараС21.05.2023 20:42
-
несамаяумная16.09.2022 13:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.