<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
Свойство информации отражающее истинное положение дел это достоверность
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.
Uses crt;
var a,b,c,ch1,ch2:integer;
begin
readln (a,b,c)
if (a>b) and (a>c) then begin ch1:=a+1; ch2:=a-1;end;
if (b>c) and (b>a) then begin ch1:=b+1; ch2:=b-1;end;
if (c>b) and (c>a) then begin ch1:=c+1; ch2:=c-1;end;
writeln ('преведущее = ',ch2,'последущее = ',ch1);
end.
Не пойму что тут делать с goto
В одном большом и красивом зале жили музыаальны инструменты. вечерами когда зал(театр) наполнялся нарядно одетыми людьми оркестр взвалновално готовился для выступления . каждый инструмент выходил по своему номеру растраивались при неудачах радывались когда аплодируют. когда люди покидали театр люстры меняли яркое свечение на нежный лунный свет а инструменты жили своей жизнью.
