Question

Помогите решить. Составить алгоритм и программу на языке Turbo Pascal. Задан двумерный массив В(10, 10), заполненный случайными числами из [0,99]. Найти и вывести на экран те элементы массива, которые больше заданного числа k.

Answer 1

Только название массива "a" везде поменять на указанное в задание "B", если это действительно критично (каюсь, не заметил)

Answer 2

Конечно, вот пример алгоритма и программы на языке Turbo Pascal для решения данной задачи:

pascalCopy code
program FindElementsGreaterThanK;
uses crt;

const
  N = 10; // Размерность массива

var
  B: array[1..N, 1..N] of Integer; // Двумерный массив
  k: Integer; // Заданное число
  i, j: Integer; // Индексы массива

procedure FillArray;
begin
  // Заполнение массива случайными числами от 0 до 99
  for i := 1 to N do
    for j := 1 to N do
      B[i, j] := Random(100);
end;

procedure PrintArray;
begin
  // Вывод массива на экран
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(B[i, j]:4);
    writeln;
  end;
end;

procedure FindAndPrintElementsGreaterThanK;
begin
  writeln('Введите значение k:');
  readln(k);

  writeln('Элементы массива, большие чем ', k, ':');
  for i := 1 to N do
    for j := 1 to N do
      if B[i, j] > k then
        writeln('B[', i, ',', j, '] = ', B[i, j]);
end;

begin
  clrscr;

  // Заполнение и вывод исходного массива
  FillArray;
  writeln('Исходный массив:');
  PrintArray;

  // Поиск и вывод элементов больше k
  FindAndPrintElementsGreaterThanK;

  readln;
end.

Программа создает двумерный массив B(10, 10), заполняет его случайными числами от 0 до 99, выводит исходный массив на экран, запрашивает у пользователя значение k и выводит элементы массива, которые больше заданного значения k.