Предмет: Информатика,
автор: lVReit
построить из элементов двумерного массива одномерный массив, элементом которого являетются четные элементы двумерного массива
Ответы
Автор ответа:
0
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.
Автор ответа:
0
После каждой точки с запятой переход на новую строку.
Автор ответа:
0
надо через процедуры
Автор ответа:
0
Раньше надо было сказать :D
Похожие вопросы
Предмет: Русский язык,
автор: ismayilovyaqub
Предмет: Окружающий мир,
автор: MaxImozg1
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: tdudkovskay