</span><span>class Main { public static void main(String[] args) { ArrayList<Integer> a = new ArrayList();
</span>/** * Заполнение */<span> for (int i = 0; i < 50; i++) a.add(i, new java.util.Random().nextInt(100));
/** * Пузырь */ for (int i = 0; i < 50; i++) for (int j = 0; j < 50-i-1; j++) if (a.get(j) > a.get(j+1)){ int b = a.get(j); a.set(j, j+1); a.set(j+1, b); } </span><span> for (int i = 0; i < 50; i++) System.out.print(a.get(i) + " "); System.out.println("\n---");
//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> //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>
Var a, b, c : integer; begin readln(a, b, c); if (a = b) and (a=c) then writeln('Треугольник равносторонний'); if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный') end.
Program maxx; var ocenka,sdal,nesdal,k,i:integer; begin writeln('введите кол-во оценок'); readln(k); sdal:=0; nesdal:=0; for i:=1 to k do begin readln(ocenka); if ocenka>2 then sdal:=sdal+1; else nesdal:=nesdal+1; end; writeln(sdal); writeln(nesdal); <span>end.</span>