var
N:array of integer;
A:integer;
begin
write('Длина массива: '); readln(A);
setlength(N,A);
N.FillRandom(0,50);
writeln('Исходный массив: ',N);
var X:=N.FindAll(x -> x mod 2 = 0); X.Sort;
writeln('Полученный массив: ',X);
end.
Примечание:
Не претендую на лучшее решение,просто сделал программу чуть короче)
1) Письменность этих народов относится к буквенно-звуковому типу, так как каждый звук обозначается определенным символом.
2) На первом месте несомненно располагается китайский язык. Второе место принадлежит испанскому языку, который является официальным в 20 странах. Очень интересный иностранный язык расположился на третьем мест — хинди, на нем говорит население Индии.
3) Формальный язык однозначен и не допускает толкований. При выполнении его инструкций результат также однозначен, что имеет огромное значение при производстве вычислений и построении числовых моделей, что позволяет судить о правильности их построения.
var m,a:array [-100..100] of integer;
n,j,i,count:integer;
begin
write('введите сколько необходимо чисел: ');
read(n);
randomize;
for i:=1 to n do begin
m[i]:=random(51);
write(m[i],' ');
if m[i] mod 2 = 0 then begin
inc(count);
a[count]:=m[i];
end;
end;
writeln;
for i:=1 to count-1 do begin
for j:=1 to count-i do
if a[j] > a[j+1] then
swap(a[j+1],a[j]);
end;
for i:=1 to count do
write(a[i],' ');
end.