Question

построить из элементов двумерного массива одномерный массив, элементом которого являетются четные элементы двумерного массива

Answer 1

var a:array [1..100,1..100] of integer; b:array [1..10000] of integer; i,j,k,m,n:integer; begin k:=0; writeln('Введите размерность массива'); read (m, n); writeln ('Введите массив'); for i:=1 to m do for j:=1 to n do read(a [i,j]); for i:=1 to m do for j:=1 to n do if (a[i,j] mod 2=0) then begin k:=k+1; b [k]:=a [i,j]; end; for i:=1 to k do write(b[i], ' '); end.

Answer 2

После каждой точки с запятой переход на новую строку.

Answer 3

надо через процедуры

Answer 4

Раньше надо было сказать :D