Question

Помогите пожалуйста!!! Задан двумерный массив
В(5, 5), заполненный случайными числами из промежутка [-9,9].
Найти и вывести на экран те
элементы массива, которые больше заданного k. Паскаль

Answer 1

const

 n=5;

var

 b: array [1..n,1..n] of integer;

 i,j,k:integer;

begin

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         b[i,j]:=random(19)-9;

         write(b[i,j]:3);

       end;

     writeln;

   end;

 write('Введите k: '); readln(k);

 for i:=1 to n do

   for j:=1 to n do

     if b[i,j]>k then

       writeln('[',i,',',j,']',b[i,j]);

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!