fkn+antitotal

Задача 5 Урок 20:

Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером

function fib(n: integer): integer;
begin
 if n > 1 then result := fib(n - 1) + fib(n - 2)
 else result := n;
end;

var N: integer;
begin
  write('Введите номер числа Фибоначчи: ');
  readln(N);
  writeln(fib(N));
  readln();
end.

Задача 4 урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

Задача 15 урок 15

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1

Задача 14 урок 15

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k

Задача 3 урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

program U15Z3;
var a: array[1..7] of integer;
    i,max: integer;
begin
  writeln('vvedite 7 elementov massiva');
  for i:=1 to 7 do
    readln(a[i]);
  max:= a[1];
  for i:=2 to 7 do
    if (a[i]>max) then
      max:=a[i];
  writeln('mazimalnoe znachenie: ', max);
  readln();
end.   

unable to locate package kernel-headers-4.9.0-8-amd64

В дебиан можно решить так:

apt-get update
apt-get install linux-image-amd64 linux-headers-amd64

после чего выполняем перезагрузку

Источник: https://unix.stackexchange.com/a/543609

Задача 2 урок 15

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

Рекурсия вообще

Для начала скажем, что "рекурсия вообще" это явление в реальности, когда что-то повторяет само себя, причем обычно каким-то "вложенным" образом.

Рекурсия может быть "статической", как повторение формы целого в его частях, например так:

или так:

Задача 12 урок 15

Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.

Задача 11 урок 15

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга, если среди есть неуникальные элементы, то удалите их, сдвинув значения влево, заполняя оставшиеся справа ячейки нулями.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.