Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
1 килобайт=1024 байт
1/2 килобайта=512 байта
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
Правые корабли уплывают вниз тем временем левые двигаются вперед