Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов

@in_box · Регистрация: 21.10.2010

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

Ребята,пожалуйста,укажите ошибку...
Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов .

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim B as Integer 
K=(Text1.Text)
N=(Text2.Text)
ReDim A(N,K) as Integer 
ReDim S(K) as Integer 
For i=1 To K
A(i)=InputBox ("число" & str(i) & "=")
Next i
For j=1 To N
A(j)=InputBox ("число" & str(j) & "=")
Next j
For i=1 To K
For j=1 To N
If A(i,j) then
S(K)=S(K)+A(i,j)
End if
Next j
Print S(K)
Next i
End Sub

@gaw · 24.10.2010, 21:16

на первый взгляд
строка 4 A(N,K)
строка 7 A(i) !!!!!!!!!!!!!!
строка 10 A(j) !!!!!!!!!!!!!

@Alex77755 · 24.10.2010, 22:32

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) & "=") - редим А как двухмерный, присвоение как одномерному
дальше уже не смотрю

Новые блоги и статьи Все статьи Все блоги /
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Полностью асинхронный счётчик на логике (сумматорах) трёх состояний и асинхронных регистрах трёх состояний. Структура "электронный Buttom Up" Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	24.10.2010, 21:16
	на первый взгляд строка 4 A(N,K) строка 7 A(i) !!!!!!!!!!!!!! строка 10 A(j) !!!!!!!!!!!!! 0

@Alex77755 11523 / 3810 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	24.10.2010, 22:32
	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

Опции темы