Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 48 стр.

     For j := 1 to N do
       begin Write(’A[’ , i , ’, ’ , j , ’] = ? ’);
             ReadLn(A[i, j])
       end; WriteLn;
   WriteLn(’Заданная матрица :’);
   For i := 1 to N do
     begin
       For j := 1 to N do Write(A[i, j] : 5);
       WriteLn
     end; WriteLn
 End;    { of InputOutput }
{------------------------------------}
Procedure Solution(Var A : Mas); {описание процедуры поиска
решения}
  Var Flag : Boolean;
 Begin
   Flag:=FALSE; i:=1;
   While (i<=N) and not Flag do
     If (A[i, i]>0) and (A[i, i] mod 2 = 1)
        then Flag:=TRUE
        else i:=i+1;
   WriteLn(’О т в е т :’);
   Write(’Среди элементов главной диагонали ’);
   If Flag then WriteLn (’есть нечетные положительные.’)
           else WriteLn(’нет нечетных положительных.’);
   ReadLn;
  End;     { of Solution }
{------------------------------------}
BEGIN
  InputOutput(A); {вызов процедуры ввода-вывода данных}
  Solution(A);    {вызов процедуры поиска решения задачи}
END.


Пример 4.4. Числа Фибоначчи ( Fi ) определяются по формулам F0 = F1 = 1; Fi = Fi –1 +
Fi –2 при i = 2, 3, ... (каждое очередное число равно сумме двух предыдущих). Вычислить
 сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа
                                              М.

                                         Тест

         Номер теста                Данные                      Результат

              1                      M=10                  S=1+1+2+3+5+8=20

              2                       M=1                       S=1+1=2

                           Демонстрация
Школьный АЯ
алг Фибоначчи (арг цел М, рез цел S)
  дано      | M>0
нач цел F0, F1, F2