Вычислить квадратный корень из суммы квадратов элемента массива — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10 INPUT "kolvo znacheniy massiva", a
20 DIM aa(a)
30 FOR i = 1 TO a
    40 INPUT aa(i)
50 NEXT
60 FOR s = 1 TO a
    70 ss = aa(s) * aa(s) + ss
80 NEXT s
90 PRINT SQR(ss)

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment