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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:array[1..10,1..10] of integer; i,j:integer; begin for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(51); for i:=1 to 10 do for j:=1 to 10 do if (a[i,j] mod 2=0) then write(a[i,j]); end.