qbasic

[kenny495]

дан массив, состоящий из 20 элементов.найти все тройки элементов массива, сумма которых больше К и подсчитать число такихтроек.результат распечатать в виде:
массив
число троек

[NetSpace]

А собственную наработку, хоть и неправильную, выложить забыл?

[Serebro]

Сообщение от kenny495

дан массив, состоящий из 20 элементов.найти все тройки элементов массива, сумма которых больше К и подсчитать число такихтроек.результат распечатать в виде:
массив
число троек

N=20
DIM A(20)

S=...   // ЗАДАННОЕ ЧИСЛО K

NUMBER=0

FOR I=1 TO N-2
  FOR J=I+1 TO N-1
    FOR L=J+1 TO N
      SUMMA=A(I)+A(J)+A(L)
      IF SUMMA > S THEN
        NUMBER=NUMBER+1
      END IF
    NEXT L
  NEXT J
NEXT I

FOR I=1 TO N
  PRINT "A(",I,")=",A(I)
NEXT I

PRINT "NUMBER=",NUMBER

END

P.S. За помощь кликни по оплаченной рекламе здесь.