End; {of Output}
{--------------------------------------------}
BEGIN
Input; {вызов процедуры ввода массива }
Regulate; {вызов процедуры упорядочения по возрастанию}
Output {вызов процедуры вывода результата}
END.
QBasic
CLS : INPUT "N = "; N : DIM A(N)
FOR i = 1 TO N
PRINT "A(" ; i ; ") = " ;
INPUT A(i)
NEXT i
FOR i = 1 TO N-1
FOR j = i+1 TO N
IF A(i) > A(j) THEN Tmp=A(i) : A(i)=A(j) : A(j)=Tmp
NEXT j
NEXT i
PRINT : PRINT "Упорядоченный массив :"
FOR i = 1 TO N
PRINT A(i) ;
NEXT i : PRINT
END
Пример 3.5. В массиве A(N, N) вычислить две суммы элементов, расположенных ниже и выше главной диагонали.
Тест
| Данные
| Результат
|
N=3 
| S1=6
S2=9
|
