Использовать подпрограммы (ввода, вывода, обрабатывающей части дан массив целых чисел а[m, n], где m, n< =10. в каждой строке массива выбрать минимальный и найти их произведение. предмет (программирование) на pascal abc необходимо выполнить с использованием процедур и функций.

Uses crt; var a : array [1..10, 1..10] of integer ; i,j,n,m: byte; min,s: integer;     begin  s: =1; randomize; writeln('введи кол-во строк(< 10)'); readln(n); writeln('введи кол-во столбцов(< 10)'); readln(m); for j: =1 to m do   for i: =1 to n do begin a[i,j]: =random(100); gotoxy((i-1)*5+1,j+5); writeln(a[i,j]); end; for i: =1 to m do begin min: =a[1,i]; for j: =1 to n do  if a[j,i]< min then min: =a[j,i]; gotoxy((i-1)*3+1,i+12); write('min в ',i,' строке равен ',min); s: =min*s; end; gotoxy(1,23); writeln(s); end.

Using system; class program { public static void main() { double x,y; for (x = 0; x < = 12; x++)         {             y = math.sqrt(math.log(x*x-3*x+2));             console.writeline("x = {0}, y = {1}", x, y);         }         console.readkey(); } } результат: x = 0, y = 0.832554611157698x = 1, y = nanx = 2, y = nanx = 3, y = 0.832554611157698x = 4, y = 1.33856619904585x = 5, y = 1.57635866787606x = 6, y = 1.73081838260229x = 7, y = 1.84423354856758x = 8, y = 1.93330536084794x = 9, y = 2.00632791206601x = 10, y = 2.06801018348945x = 11, y = 2.1212754819519x = 12, y = 2.16805912414593ps. nan - функцию невозможно вычислить при данном значении аргумента.

#include < iostream> using namespace std; const int n = 15; double congruential(int & x) // функция генерации псевдослучайных чисел {   const int m = 100, // генерация псевдослучайных чисел в диапазоне значений от 0 до 100 (выбирается случайно m > 0)             a = 8, // множитель (выбирается случайно 0 < = a < = m)           inc = 65; // инкрементирующее значение (выбирается случайно 0 < = inc < = m)   x = ((a * x) + inc) % m; // формула линейного конгруэнтного метода генерации псевдослучайных чисел    return (x / double(m)); } int main() {     double arr[n];     double num, frq, max_frq;     int x0 = 20;     for (int i=0; i< n; i++) {         arr[i] = congruential(x0);         cout < < arr[i] < < " ";     }     num = arr[0];     max_frq = 1;     for (int i=0; i < n-1; i++) {         frq = 1;         for (int k = i+1; k< n; k++)              if (arr[i] == arr[k])                 frq += 1;         if (frq > max_frq) {             max_frq = frq;             num = arr[i];         }     }     cout < < endl;     if (max_frq > 1)          cout < < max_frq < < " : " < < num < < endl; else         cout < < "all uniqum" < < endl;     return 0; }