Не получается задача. Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10. - Pascal ABC
Формулировка задачи:
Дан целочисленный массив А[1..4, 1..5]. Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10.
Решение задачи: «Не получается задача. Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10.»
textual
Листинг программы
Program a48; var a: array [1..4, 1..5] of integer; i,j,k: integer; b:boolean; begin randomize; for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=5+random(10); write(a[i,j]:3) end; writeln end; k:=0; writeln('Номера строк, где есть элемент=10'); for i:=1 to 4 do begin b:=false; for j:=1 to 5 do if a[i,j]=10 then b:=true; if b then begin write(i,' '); k:=1 end; end; if k=0 then write('Таких строк нет') end.
Объяснение кода листинга программы
- Объявляются переменные: массив a размером 4x5 для хранения целочисленных значений, целые числа i, j, k для работы с циклами, логическое значение b для проверки условия.
- Заполнение массива a случайными значениями от 5 до 14 с шагом 1.
- Вывод содержимого массива a в шестнадцатеричной системе счисления.
- Инициализация счётчика k=0.
- Вывод номеров строк, где есть хотя бы один элемент, равный 10.
- Если таких строк нет, то выводится соответствующее сообщение.