Напишите программы в pascalabc: 1 заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его с алгоритма быстрой сортировки. 2). заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его по убыванию с алгоритма быстрой сортировки.

-пища для ума;

 

-выражена на языке.доступном для получателя.

 

-сообщение может пополнить знания человека,если содержащиеся в нём сведения являются для человека понятными и новыми. 

-знания человека можно разделить на две группы: декларативные и процедурные ,или по- другому - факты и правила;

 

-к фактам относятся знания об определённых явлениях,событиях,  свойствах объектов), и зависимостях между объектами.

-к правилам относятся знания о последовательностях действий, направленных на достижение некоторой цели.

№2 var n,i,j: integer; s,s1: string; begin readln(s); for n: =1 to 9 do begin str(n,s1); for i: =1 to length(s) do  if s[i]=s1 then inc(j); writeln('цифр ',n,' всего ',j); j: =0; end; end. №4var a: array[1..100] of integer; kmax,max,i,n: integer; beginreadln(n); read (a[1]); max: =a[1]; kmax: =1; for i: =2 to n dobeginread(a[i]); if a[i]=max theninc(kmax); if a[i]> max thenbeginmax: =a[i]; kmax: =1; end; end; writeln; writeln('максимальное число =',max,' в массиве оно встречается ',kmax,' раз'); end.