Способы познания окружающего мира, их 8 штук

1.наблюдение 2.эксперимент 3. описание 4. объяснение ну и может быть: уничтожение

Var n,sum,d,ind,first: integer; begin   write('n');   readln(n);   d: =1;   ind: =0;   sum: =0;   if   n div d=0 then    begin    ind: =1;   sum: =n;   end    else begin    while n div d< > 0 do    begin    inc(ind);     sum: =sum+(n div d) mod 10;     d: =d*10;     end;     end;     writeln('suma',sum);     writeln('kolvo',ind);     first: =(n div round(d/10)) mod 10;   writeln('first',first);     readln; end.

Const   n = 7; var   a: array[1..n, 1..n] of integer;   i, j, sum, min, imin: integer; begin   randomize;   for i : = 1 to n do       for j : = 1 to n do           a[i, j] : = random(100) - 50;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end;   sum : = 0;   min : = 100; //у нас в массиве числа на (-50: 50)   for i : = 1 to n - 1 do       for j : = 1 to n - i do           sum : = sum + a[i, j];   for i : = 1 to n do       if min > a[i, i] then begin           min : = a[i, i];           imin : = i       end;   writeln('сумма элементов левее побочной диагонали=', sum);   writeln('минимальный элемент на главной диагонали=', min, ', его координаты (', imin, ',', imin, ')') end. контрольный пример: исходный массив   14  39  -7 -26  10 -33    9   48 -21 -19    6    2  24 -16   27 -41 -26  -7  16 -27 -34   42  32 -12 -37  -9  20 -26   -35 -20 -34  40  -3    5    1   23  31 -11  -9  26 -28  25   34  26 -30  11  43  19 -26 сумма элементов левее побочной диагонали=-4 минимальный элемент на главной диагонали=-37, его координаты (4,4)