На PYTHON Описать функцию Fib(N), вычисляющую N-й элемент
последовательности чисел Фибоначчи F K , которая описывается
следующими формулами:
F 1 = 1, F 2 = 1, F K = F K−2 + F K−1 , K = 3, 4, … .
Используя функцию Fib, найти пять чисел Фибоначчи с данными
номерами N 1 , N 2 , …, N 5 . Вывод результата должен выполняться в
ОСНОВНОЙ программе!!

Var
 a: array[0..99] of integer;
begin
  //заполняем массив случайными числами
  Randomize();
  for var i:=0 to 99 do a[i]:=random(-100,100);
 
  //а теперь заменяем все отрицательные элементы на ноль
  for var i:=0 to 99 do 
    if (a[i]<0) then a[i]:=0;
end.

Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]);  n1:=n;  for var i:=n downto 1 do{в цикле просматриваем элементы массива}  begin    if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент}    begin{если нужно – удаляем i-ый элемент}      for var j := i to n1 - 1 do         A[j] := A[j + 1]; {сдвигаем}       A[n1]:=0;        Dec(n1); {уменьшаем количество элементов}    end;  end;  for var i:=1 to n1 do    write(A[i], ' ');end.

Блок-схему с телефона сделать не могу, вот текстом: Начало Ввод а Ввод b a>b? Если да, вывод a В другом случае вывод b (подразумевается, что a и b никогда не равны) Конец Аналогичная программа на Qbasic: DIM a AS INTEGER, b AS INTEGER INPUT a INPUT b IF a > b THEN PRINT a ELSE PRINT b END IF На C#: Using system; class Compare{ public static void main(String[] args){ int a = int.Parse(Console.ReadLine()); int b = int.Parse(Console.ReadLine()); if (a>b){ Console.WriteLine(a); }else{ Console.WriteLine(b); } Console.ReadLine(); //чтобы программа не закрылась после выполнения } }