qbonesq

ввести n(любое количество) чисел и расположить в порядке убывания
бейсик,код и блок-схема

Urian

О каком бейсике идет речь: QBasic, VB (Visual Basic), VB .NET, VBA?

qbonesq

QBasic

Urian

CLS

DIM n AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
DIM tmp AS INTEGER

INPUT n

REDIM ar(1 TO n)
FOR i = 1 TO n
INPUT ar(i)
NEXT i

FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF ar(i) < ar(j) THEN
tmp = ar(i)
ar(i) = ar(j)
ar(j) = tmp
END IF
NEXT j
NEXT i

FOR i = 1 TO 5
WRITE ar(i)
NEXT i


Блок-схему, извиняйте, нарисовать не смогу. Попробуйте найти в интернете программу для автоматического составления блок-схем