//PascalABC.Net 3.0, сборка 1064
const
nn=50;
var
a:array[1..nn] of integer;
i,n,imin:integer;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i;
end;
Writeln;
for i:=imin to n-1 do a[i]:=a[i+1];
Writeln('Массив-результат');
for i:=1 to n-1 do Write(a[i],' '); Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 15
Исходный массив
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2
Массив-результат
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2
<em><u>А это версия для тех, кто думает, что Паскалю пора давно "на свалку":</u></em>
//PascalABC.Net 3.0, сборка 1064
begin
var n:=ReadInteger('Введите количество элементов в массиве');
var a:=SeqRandom(n,-25,25).ToArray();
Writeln('Исходный массив:',#13#10,a);
Writeln('Результат:',#13#10,a.Where(x->x<>a.Min));
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве 15
Исходный массив:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15]
Результат:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15]
<em>Можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на Java, приведенной в предыдущем ответе.</em>
1) 8, 10, 16
2) 11111(2), 37(8), 31(10), 1F(16)
3) -61(10) = 11000011(2); 99(10) = 1100011(2)
4) 892310
5) 32
6) 1809
Удаление справа-(1.Установить...символом..2.Нажать...Del)
Удаление слева-(1.Установить...за лишним символом..2.Нажать..Backspace)
Замена символа справа(1-Установить курсор перед ошибочным символом....)
И последнее-Вставка пропущенного символа.
алгоритм--1-установить курсор после ошибочного символа.2-Нажать Backspace.3.Нажать клавишу с верным символом.
______
1Столбик-3 столбик
2 столбик- 1 столбик
3 столбик- 2 столбик
________
1-1
2-2
3-3
4-2
5-2
6-2
7-1
8-3
9-2,3