РЕБЯТ ИНФОРМАТИКА СРОЧНОО)

МАССИВЫ

вывести на печать четные элементы таблицы. если элементы mod=0, то печатай элемент ( двумерная )

1

Ответы и объяснения

2012-11-25T11:05:15+04:00

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.