Var s,p1,p2:string; a:array['A'..'Z'] of byte; n,i,j,f:integer; c,sim:char; begin readln(n); readln(s); for c:='A' to 'Z' do a[c]:=0; for i:=1 to length(s) do a[s[i]]:=a[s[i]]+1; p1:=''; p2:=''; f:=0; for c:='A' to 'Z' do begin for j:=1 to a[c] div 2 do begin p1:=p1+c; p2:=c+p2; end; if (a[c] mod 2=1)and(f=0) then begin sim:=c; f:=1; end; end; if f=1 then p1:=p1+sim; p1:=p1+p2; writeln(p1); end.
Пример: 6 QAZQAZ AQZZQA
PS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать AnsiString.
var a: array[1..n] of real; i, j: integer; min, max: real; sum, product, harmonic: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin a[i] := random(40) - 20; write(a[i], ' '); end; writeln();
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do sum := sum + a[i]; writeln('average = ', sum / n);
{минимум и максимум} min := a[1]; for i := 1 to n do if min > a[i] then min := a[i]; writeln('min = ', min);
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; writeln('sum = ', sum); end.
Тофтология
Объяснение:
Хз, на уроке училка сказала)))