Создать и вывести массив у(8), с элементами уk = ln(k) - 3k, где k = 1, 2…. выполнить дополнительно своего варианта поиска данных по некоторому критерию (признаку найти в массиве отрицательные элементы и заменить их значение на модуль числа. определить их количество .

Var     y: array[1..8]of real;     k,n: integer; begin writeln('исходный массив: '); for k: =1 to 8 do   begin   y[k]: =ln(k)-3*k;   if y[k]< 0 then n: =n+1;   write(y[k],' ');   end; writeln; writeln('количество отрицательных: ',n); writeln('измененный массив: '); for k: =1 to 8 do   begin   if y[k]< 0 then y[k]: =abs(y[k]);   write(y[k],' ');   end; end.

название системы счисления                                                              используемые числа

унарная                                                                                                                                    1

двоичная                                                                                                                                0, 1

троичная                                                                                                                                  0, 1, 2

четверичная                                                                                                                      0, 1, 2, 3

пятеричная                                                                                                                            0, 1, 2, 3, 4

шестеричная                                                                                                                    0, 1, 2, 3, 4, 5

в компьютере используют еще

восьмеричную                                                                                                                  0, 1, 2, 3, 4, 5, 6,7

шестнадцатеричную                                                0, 1, 2, 3, 4, 5, 6, 7,8, 9 и буквы

                                                                                                                  a(10), b(11), c(12), d(13), e(14), f(15)           

Var   arr: array[1..100] of integer;   i, n, min, max: integer; begin   min: =1;   max: =1;   readln(n);   for i: =1 to n do     begin     arr[i]: =random(100);     write(arr[i], ' ');       if arr[i]> arr[max] then max: =i;       if arr[i]< arr[min] then min: =i;     end;   writeln;   writeln('минимальный(', arr[min], '); максимальный(', arr[max], '); '); end .