/10)/10)/10)/1000=1/(10^6)=мм/км(для особо одаренных^^)
gbelihina
02.01.2021
//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию uses system; begin var a : = arrrandominteger(100, -100, 100); println(a); var max : = a.max(); a[a.indexmax()] : = 0; max : = max * a.max(); var min : = a.min(); if (min < 0) then begin a[a.indexmin()] : = 0; min : = min * a.max(); end; writeln(math.max(max, min)); end.
количество байтов необходимо разделить на 1024