вот я составляла на чертежник
program delin;
const
nn = 100;// максимальный размер массива
var
i, j, n, t: integer;
a: array[1..nn] of integer;
begin
write('n = ');
read(n);
randomize;
for i := 1 to n do
begin
a[i] := random(38) - 9;
write(a[i], ' ');
end;
writeln;
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] > a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t;
end;
for i := 1 to n do
write(a[i], ' ');
end.
Такс задача!?) Шучу... там надо закачать сначало анти вирус протереть диски и закачать
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
A) writeln(c);
б) var a, s: integer;
в) r := p - q;
2. а)
9
53 (после writeln происходит переход на новую строку, после write - нет)
2. б)
8
5-35+1=6