ПОМОГИТЕ! ПАСКАЛЬ! Создать массив интервалом 6 ** 6 случайным образом интервал(-50;50]....

Question

ПОМОГИТЕ! ПАСКАЛЬ! Создать массив интервалом 6 на 6 случайным образом интервал(-50;50]. 1.Найдите количество отрицательных элементов второго столбца. 2.Заменить все положительные элементы на минимальные.

Answer 1

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

     

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.