Дан двухмерный массив [10,10] . Заменить нечетные элементы на 0 заполнить случайными цифрами от 1 до 9

@mavrik27 · Регистрация: 17.03.2014

помогите решить задачу

@APALoff · 19.03.2014, 10:56

Pascal

For i:=1 to 10 do
 For j:=1 to 10 do
 Begin
   M[i,j]:=Random(9)+1;
   If Odd(M[i,j]) then M[i,j]:=0;
 End;

@mavrik27 0 / 0 / 0 Регистрация: 17.03.2014 Сообщений: 2
		1
	Дан двухмерный массив [10,10] . Заменить нечетные элементы на 0 заполнить случайными цифрами от 1 до 9 19.03.2014, 10:03. Показов 1099. Ответов 1 Метки нет (Все метки) помогите решить задачу 0

Опции темы

Решение