Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.
Const n = 15;
var a: array[1..n] of integer;
i, j, m: integer;
begin
// генерация и вывод
randomize;
for i := 1 to n do a[i] := Random(19)-8;
for i := 1 to n do write(a[i], ' ');
writeln;
// Сортировка
for i := 1 to n-1 do begin
m := i;
for j := i+1 to n do
if a[j] < a[m] then m := j;
if m <> i then begin
j := a[m];
a[m] := a[i];
a[i] := j;
end;
end;
for i := 1 to n do write(a[i], ' ');
writeln;
// поиск наибольшей разности
m := a[2] - a[1];
for i := 3 to n do
if a[i] - a[i-1] > m then
m := a[i] - a[i-1];
writeln ('разность = ', m);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var n:=ReadInteger('n=');
var m:=18;
var a:=MatrixRandom(m,n,-999,999);
var imax:=0;
var jmax:=0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:5);
if abs(a[i,j])>abs(a[imax,jmax]) then begin
imax:=i; jmax:=j
end
end;
Writeln
end;
Writeln('Максимум по модулю А[',imax+1,',',jmax+1,
']=',a[imax,jmax])
end.
<u><em>Тестовое решение:</em></u>
n= 10
-275 257 -860 744 -263 843 8 667 425 -547
-392 635 636 -441 -64 973 201 -864 -126 -868
-764 43 -884 -667 -113 807 354 966 -155 -527
532 -790 -911 0 -303 -471 453 431 -741 -582
-121 548 -946 610 724 -426 963 -589 -591 845
-846 629 728 634 -581 681 141 807 -142 -70
-510 42 -177 -48 -80 -601 547 -364 862 -593
-480 770 876 -544 253 -312 -11 -494 -391 -687
843 -56 558 0 -681 903 -519 -545 -418 15
387 646 -427 329 928 837 -274 101 -310 325
27 327 -452 -998 325 -616 752 273 -619 731
-307 -364 199 -454 86 546 483 823 -367 17
917 92 -945 -152 19 -126 198 -453 -473 416
961 888 815 283 286 -483 -604 557 674 935
-849 207 -926 -149 -677 -248 -552 -972 -756 -617
-646 -97 -532 673 407 934 272 700 -18 -548
186 206 -253 -35 769 -196 -179 915 259 -431
151 926 -851 -302 -134 -289 19 204 -474 -732
Максимум по модулю А[11,4]=-998
<span>Минимальный объем дискового пространства,выделяемый для хранения файла, называется БИТ</span>
Ответ:
program Calc2;
uses
Math;
var
x, y: Real;
begin
Write ('X = ');
ReadLn (x);
y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));
WriteLn ('Результат = ', y);
ReadLn;
end.
Объяснение: