<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
1.Откройте почтовый ящик
2.Выберите ссылку написать письмо
3.Введите поле кому
4. Выберите тема
5. Введите текст письма
6.нажмите кнопку отправить
Экран дисплея. Ну нпр картинка выводится на экране.
Ответ: В
Пишу ответ на С++ и QBasic, если у Вас другой язык, то просто измените синтаксис:
1) min=10000;
number=0;
for (int i=0;i<5;i++)
{
if A[i]<min;
{
min=a[i];
number = i;
}
}
2)
<span>DECLARE FUNCTION f! (x!)
CLS INPUT "[A; B] = "; A, B
INPUT "SHAG H = "; n
FOR x = A TO B STEP n
n = n + 1
IF n MOD 20 = 0 THEN
PRINT "PRESS ENTER"
DO: LOOP UNTIL INKEY$ <> ""
CLS
ELSE
IF ABS(x) < 1 THEN
PRINT USING "X = ###.###"; x;
PRINT " Y = ---"
ELSE
PRINT USING "X = ###.### Y = ###.###"; x; f(x)
END IF
END IF
NEXT
END
FUNCTION f (x)
IF ABS(x) <= 3 THEN
IF ABS(x) >= -3 THEN f = x
ELSE
f = 1 / (x*x) END IF
END <span>FUNCTION</span></span>
<span>вообще - 65536... потому что юникод двухбайтный</span>