Создать двумерный массив все четные элементы переписать в одномерный массив

17.06.2011, 14:08. **Показов** 2749. **Ответов** 1

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

@AnTro.Net · 17.06.2011, 19:16

Pascal

randomize;
for i:=1 to n do
  for j:= 1 to n do
begin   
 a[i,j]:= randome(40);
 if a[i,j] mod 2 = 0 then // добавляем в массив 
end;

SMEL
		1
	Создать двумерный массив все четные элементы переписать в одномерный массив 17.06.2011, 14:08. Показов 2749. Ответов 1 Метки нет (Все метки) создать двумерный массив все четные элементы переписать в одномерный массив

Опции темы

Решение