Question

Дан двумерный массив 4 на 4. Из чётных элементов вычесть число x и выдать двухмерный массив на экран ( число х ввести с клавиатуры). Pascal ABC.net

Answer 1

                                       PascalABC.NET                

begin

 Var x := ReadInteger('Введите число x = ');

 var a := MatrRandom(4,4,0,10).Println;

 for var i := 0 to 3 do

   for var j := 0 to 3 do begin

     if a[i,j].IsEven then

         a[i,j]-=x;

       end;

 Writeln;

 a.Println

end.