<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Минимальный элемент ',a.Min);
end.
<u>Пример</u>
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50
Дай поесть и напои и скажи иди
64 Кбайт = 64*1024 байт = 64*1024*8 бит
Время передачи = 64*1024*8/64000 = 1024*8/1000 = 8,192 сек ≈ 9 с
Ответ:
Перепроверь правильность написания формул. Проблема может быть даже в точке
Program mb;var a,b:integer;beginclrscr;writeln('vvedite a,b');readln(a,b);if a>b then writeln('большим является a')else writeln('большим является b');end.