РЕБЯТ ИНФОРМАТИКА СРОЧНОО) МАССИВЫ вывести на печать четные элементы таблицы.…

Prorgam zadacha; Var a: array [1… 100,1… 100] of integer; i,j: integer; Begin Randomize; For i: =1 to 100 do begin For j: =1 to 100 do begin a[i,j]=random (100)+1; If (a[i,j] mod 2=0) then writeln (a[i,j]); End; End; End.