Нужно до завтра: 1.на плоскости заданы своими координат n точек. составить программу, определяющую между - id279455320220117 от olga170103 17.01.2022 04:21

Question

Информатика: Нужно до завтра: 1.на плоскости заданы своими координат n точек. составить программу, определяющую между какими из пар точек самое большое расстояние. указание: координаты точек занести в массив. с файлового вводы и вывода

olga170103 · Accepted Answer

VBScript Sub Zadanie()     ReDim C(5, 6)     k_pos = 0     mini = LBound(C, 1)     minj = LBound(C, 2)     For i = LBound(C, 1) To UBound(C, 1)         For j = LBound(C, 2) To UBound(C, 2)             C(i, j) = Round(Rnd * 10)             if C(i, j) 0 then k_pos = k_pos + 1             if C(i, j) C(mini, minj) then                 mini = i                 minj = j             end if         Next     Next     MsgBox min C( & mini & , & minj & )= & C(mini, minj) & vbNewLine...

MOGZ ответил