</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>
<span><span>uses crt;
const n=7;
var sr:real;
i:integer; a:array[1..n] of integer;
begin
clrscr;
sr:=0;
writeln('Vvedite temperaturu za kajdyi den ');
for i:=1 to n do begin
readln(a[i]); sr:=sr+a[i];
end;
sr:=sr/7;
write('Srednya temperatura = ',sr:0:2);
readkey;
end.</span></span>