Var s: string; i, n1, n2, n3: integer; begin s : = 'это текст для подсчета в нем символов. такое вот занятное дело.'; s : = s + 'выбраны не самые частые буквы - ы, ю, я, но таково ! '; n1 : = 0; n2 : = 0; n3 : = 0; for i : = 1 to length(s) do case upcase(s[i]) of 'ы': n1 : = n1 + 1; 'ю': n2 : = n2 + 1; 'я': n3 : = n3 + 1; end; writeln('в строке встретились буквы: ы : ', n1, ' раз, ю : ', n2, ' раз, я: ', n3, ' раз') end. тестовое решение: в строке встретились буквы: ы : 6 раз, ю : 1 раз, я: 3 раз
Как ч понял сортировка по неубыванию это сортировка по возрастанию. то есть легкие элементы всплывают наверх, а тяжелые перемещаются вниз: //pascal const m = 1000 var arr: array[1..m] of integer; n,i, j, k: integer; begin readln(n); write ('исходный массив: '); for i : = 1 to n do begin readln(arr[i]); end; //сортировка методом пузырька for i : = 1 to n-1 do for j : = 1 to n-i do if arr[j] > arr[j+1] then begin k : = arr[j]; arr[j] : = arr[j+1]; arr[j+1] : = k end; write ('отсортированный массив: '); for i : = 1 to n do write (arr[i]: 4); end. алгоритм сортировки на классическом языке программирования с # define swap(a,b) {a=a^b; b=a^b; a=a^b; }void bubblesort(int a[], int n) { int i, j; for(i = n-1 ; i > 0 ; { for(j = 0 ; j < i ; j++) { if( a[j] > a[j+1] ) swap(a[j],a[j+1]); } } }