Не получается задача. Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 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.

Объяснение кода листинга программы

  1. Объявляются переменные: массив a размером 4x5 для хранения целочисленных значений, целые числа i, j, k для работы с циклами, логическое значение b для проверки условия.
  2. Заполнение массива a случайными значениями от 5 до 14 с шагом 1.
  3. Вывод содержимого массива a в шестнадцатеричной системе счисления.
  4. Инициализация счётчика k=0.
  5. Вывод номеров строк, где есть хотя бы один элемент, равный 10.
  6. Если таких строк нет, то выводится соответствующее сообщение.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы