Двумерный массив QB

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: Двумерный массив QB

Re: Двумерный массив QB

Oleo » 04 ноя 2008, 22:56

Может быть, может быть... Я уже совсем намучилась с этим бейсиком :'( Cпасибо Вам большое!!! :)

Re: Двумерный массив QB

Naeel Maqsudov » 04 ноя 2008, 22:42

Oleo писал(а):Что-то у меня мозг совсем отключился в конце...


:) похоже, что не в конце, а как раз в самом что ни на есть начале

Код: Выделить всё

INPUT n, m
DIM Y(n,m)
DIM S(n)
PRINT "Исходный массив:"
FOR i=1 TO n
  FOR j=1 TO m
    Y(i,j)=INT(RND(1)*20-10)
    PRINT Y(i,j);" ";
  NEXT j
  PRINT
NEXT

PRINT "Суммы строк:"
FOR i=1 TO n
  S(i)=0
  FOR j=1 TO n
    S(i)=S(i)+Y(i,j)
  NEXT
  PRINT S(i);" ";
NEXT
PRINT

MINS = S(1)
FOR i = 2 TO n
  IF S(i)<MINS THEN MINS = S(i)
NEXT
PRINT "Минимальная сумма:"; MINS

Двумерный массив QB

Oleo » 04 ноя 2008, 21:32

Здравствуйте уважаемые программеры! Не могли бы Вы проверить мою задачку и помочь дорешать её?
В двумерном массиве Y(N-строк, М-столбцов). Найти сумму элементов в каждой строке и минимальный среди этих сумм.
Что-то у меня мозг совсем отключился в конце...
Вот какое у меня начало:

Код: Выделить всё

[B]INPUT n, m
DIM Y(n,m)
FOR i=1 TO n
FOR j=1 TO m
Y(i,j)=INT(RND(1)*20-10)
PRINT Y(i,j);
NEXT j
PRINT
FOR i=1 TO n
S(i)=0
FOR j=1 TO n
S(i)=S(i)+Y(i,j)[/B]

Вернуться к началу