0 / 0 / 0
Регистрация: 21.10.2010
Сообщений: 41
|
||||||
1 | ||||||
Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов24.10.2010, 19:00. Показов 1281. Ответов 2
Метки нет Все метки)
(
Ребята,пожалуйста,укажите ошибку...
Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов .
0
|
|
24.10.2010, 19:00 | |
Ответы с готовыми решениями:
2
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора Даны целые числа K,N, а также K набор целых чисел по N элементов в каждом наборе. Вывести суму его элементов для каждого набора
|
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
|
|
24.10.2010, 21:16 | 2 |
на первый взгляд
строка 4 A(N,K) строка 7 A(i) !!!!!!!!!!!!!! строка 10 A(j) !!!!!!!!!!!!!
0
|
11504 / 3791 / 680
Регистрация: 13.02.2009
Сообщений: 11,194
|
|
24.10.2010, 22:32 | 3 |
Dim B as Integer - зачем объявлен если не используется?
K=(Text1.Text) - переменная K не объявлена N=(Text2.Text)- переменная N не объявлена ReDim A(N,K) as Integer - откуда редим если не объявлен А(нет Dim A()) ReDim S(K) as Integer - откуда редим если не объявлен S(нет Dim S()), For i=1 To K A(i)=InputBox ("число" & str(i) & "=") - редим А как двухмерный, присвоение как одномерному Next i For j=1 To N A(j)=InputBox ("число" & str(j) & "=") - редим А как двухмерный, присвоение как одномерному дальше уже не смотрю
0
|
24.10.2010, 22:32 | |
24.10.2010, 22:32 | |
Помогаю со студенческими работами здесь
3
Series>Даны целые числа К,N,а также К наборов целых чисел по N элементов в каждом наборе!
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |