Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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