Напишите, пожалуйста, программу на паскале (динамические массивы). С клавиатуры вводятся натуральные числа, ввод заканчивается ч
Напишите, пожалуйста, программу на паскале (динамические массивы). С клавиатуры вводятся натуральные числа, ввод заканчивается числом 0. Нужно вывести на экран эти числа в порядке возрастания.
//Pascal ABC.NET v3.0 сборка 1111 var ar:array of integer; n:integer; begin n:=0; setlength(ar,n+1); readln(ar[n]); while ar[n]<>0 do begin inc(n); setlength(ar,n+1); readln(ar[n]); end; sort(ar); ar.Print(' '); <span>end.</span>