Даны площади нескольких квадратов. Найти длину диагонали самого большого из них - QBasic

Формулировка задачи:

1) Даны площади нескольких квадратов. Найти длину диагонали самого большого из них. 2) Известны данные о стоимости каждого товара из группы. Найти общую стоимость тех товаров, которые стоят дороже 1000 рублей (количество таких товаров неизвестно.

Решение задачи: «Даны площади нескольких квадратов. Найти длину диагонали самого большого из них»

Листинг программы

CLS
 
INPUT "Vvedite kolichestvo kvadratov: ", n
 
DIM kvadrat(n)
max = 0
 
FOR i = 1 TO n
 INPUT "Vvedite S kvadrata: ", kvadrat(i)
 IF kvadrat(i) > max THEN max = kvadrat(i)
NEXT i
 
diag = SQR(2 * max)
 
PRINT "Diagonal samogo bolshogo kvadrata -"; diag

Объяснение кода листинга программы

Вводится количество квадратов.
Создается массив (массив переменных) для хранения площадей квадратов.
Инициализируется переменная max, которая будет хранить максимальную площадь квадрата.
Происходит цикл по всем введенным квадратам.
В каждой итерации цикла запрашивается площадь квадрата и сравнивается с текущей максимальной площадью. Если введенная площадь больше текущей максимальной, то обновляется значение переменной max.
После цикла вычисляется длина диагонали самого большого квадрата по формуле sqrt(2 * max).
Выводится сообщение с длиной диагонали самого большого квадрата.