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

26.02.2013, 15:20. **Показов** 2274. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Получить квадратную матрицу A размером NN (N – случайное число от 5 до 10), заполненную целыми случайными числами в интервале [1; 20].
1. Вывести исходную матрицу.
2. Заменить чётные элементы матрицы единицами.
2. Найти S - среднее арифметическое элементов преобразованной матрицы.
4. Вывести среднее арифметическое S.
5. Вывести преобразованную матрицу.

Нужна ваша помощь, в Basic net, буду очень благодарен!

@Darth Coder · 27.02.2013, 16:00

VB.NET

dim a(,) as byte
dim rnd as new random
dim i as integer=rnd.nextint(5,10)
dim s as integer
For k=0 to i-1
 For j=0 to i-1
   a(k,j)=rnd.nextint(1,20)
console.write(a(k,j)+" ")
next j
console.writeline
next k
 
For k=0 to i-1
 For j=0 to i-1
   if a(k,j) mod 2=0 tnen a(k,j)=1
next j
next k
 
For k=0 to i-1
 For j=0 to i-1
   s +=a(k,j)
next j
next k
console.writeline(s/(i*i))
 
For k=0 to i-1
 For j=0 to i-1
console.write(a(k,j)+" ")
next j
 
console.writeline
next k

Blazer555
		1
	Сформировать квадратную матрицу и заполнить случайными целыми числами 26.02.2013, 15:20. Показов 2274. Ответов 1 Метки нет (Все метки) Получить квадратную матрицу A размером NN (N – случайное число от 5 до 10), заполненную целыми случайными числами в интервале [1; 20]. 1. Вывести исходную матрицу. 2. Заменить чётные элементы матрицы единицами. 2. Найти S - среднее арифметическое элементов преобразованной матрицы. 4. Вывести среднее арифметическое S. 5. Вывести преобразованную матрицу. Нужна ваша помощь, в Basic net, буду очень благодарен!

	27.02.2013, 16:00