Question

Решите пожалуйста задачу в Паскале. Выполнить задачу: Дан двумерный массив из 5x5 элементов, заполненных случайно в диапозоне от 0 до 40. Вывести на экран все элементы этого массива и отдельно четные элементы этого массива.

Answer 1

const  

 n=5;

var

 i,j:integer;

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

begin

 randomize;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(41);

         write(a[i,j]:4);

       end;

     writeln;

   end;

 writeln;

 for i:=1 to n do

   for j:=1 to n do

     if a[i,j] mod 2 = 0 then

       write(a[i,j]:4);

end.

Answer 2

// PascalABC.NET

begin

 var a := MatrRandom(5, 5, 0, 40);

 a.Println;

 a.ElementsByRow.Where(p -> p.IsEven).Print

end.