program vertical;
var i:integer;
s:string;
begin
s := 'Вертикаль';
write(copy(s,4,2)+copy(s,3,1) +' '); // тир
write(copy(s,1,2)+copy(s,4,1)+copy(s,6,2) + ' '); // ветка
writeln(copy(s,4,2)+copy(s,6,1)); // тик
writeln('Длина исходного текста: ',s.Length);
writeln(copy(s,1,4)); // верт
Delete(s,4,3);
Delete(s,s.Length - 1,2);
writeln(s); // вера
insert('евк',s,4);
writeln(s); // веревка
writeln('Буква "е" находится на позиции: ', s.IndexOf('е') + 1);
end.
Объяснение:
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.
Объяснение:
