Напишите рекурсивную функцию, которая 1) выводит слово yes, если в веденном числе первая и последняя цифры, или слово no в другом случае. 2) вычисляет сумму 8 первых чисел последовательности 1, 11, 111, и выводит ее на экран
Procedure Sort(arr : array of integer); var i, j, temp, len, min : integer; begin len := length(arr);
for j := 0 to len - 2 do begin min := j;
for i := j + 1 to len - 1 do if arr[i] < arr[min] then min := i;
if min > j then begin temp := arr[j]; arr[j] := arr[min]; arr[min] := temp; end; end; end;
const N = 10; // Количество элементов массива Max = 100; // Максимальное число в массиве var arr : array of integer; i : integer; begin //Устанавливаем длину массива SetLength(arr, N);
for i := 0 to N - 1 do arr[i] := random(Max);
//Выводим исходный массив for i := 0 to N - 1 do write(arr[i], ' '); writeln();
Sort(arr);
//Выводим отсортированный массива for i := 0 to N - 1 do write(arr[i], ' '); writeln(); end.
Const n = 10; type arr=array[1..n] of byte; procedure sort(var a:arr); var i, j, max, imax:integer; begin j := n; while j > 1 do begin max := a[1]; imax := 1; for i := 2 to j do if a[i] > max then begin max := a[i]; imax := i end; a[imax] := a[j]; a[j] := max; j := j - 1 end; end; var a: arr; i: byte;
begin Randomize; writeln('Исходный массив:'); for i := 1 to n do begin a[i] := random(256); write(a[i]:4) end; writeln; sort(a); writeln('Отсортированный массив:'); for i := 1 to n do write(a[i]:4); writeln; end.
var
i, j, temp, len, min : integer;
begin
len := length(arr);
for j := 0 to len - 2 do
begin
min := j;
for i := j + 1 to len - 1 do
if arr[i] < arr[min] then
min := i;
if min > j then
begin
temp := arr[j];
arr[j] := arr[min];
arr[min] := temp;
end;
end;
end;
const
N = 10; // Количество элементов массива
Max = 100; // Максимальное число в массиве
var
arr : array of integer;
i : integer;
begin
//Устанавливаем длину массива
SetLength(arr, N);
for i := 0 to N - 1 do
arr[i] := random(Max);
//Выводим исходный массив
for i := 0 to N - 1 do
write(arr[i], ' ');
writeln();
Sort(arr);
//Выводим отсортированный массива
for i := 0 to N - 1 do
write(arr[i], ' ');
writeln();
end.