Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. вывести созданный массив на экран, расположив элементы в одну строку через пробелы. посчитать количество отрицательных, положительных и нулевых элементов.

Var a: array [0..10] of integer;     i, p, o, n: integer; begin       for i : = 0 to 10 do       begin           a[i] : = random(100) - 50;           write(a[i], ' ');           if (a[i] > 0) then inc(p);           if (a[i] = 0) then inc(n);           if (a[i] < 0) then inc(o);       end;       writeln();       writeln(p, ' ', n, ' ', o); end.

189 и 475 взаимно простые числа

числа 189 и 475 имеют только один общий делитель — число 1. такие числа называют взаимно простыми числами.

как найти наибольший общий делитель для 189 и 475

разложим на простые множители 189

189 = 3 • 3 • 3 • 7

разложим на простые множители 475

475 = 5 • 5 • 19

выберем одинаковые простые множители в обоих числах.

одинаковые простые множители отсутствуют

находим произведение одинаковых простых множителей и записываем ответ

нод (189; 475) = 1

нок (наименьшее общее кратное) 189 и 475

наименьшим общим кратным (нок) 189 и 475 называется наименьшее натуральное число, которое само делится нацело на каждое из этих чисел (189 и 475).

нок (189, 475) = 89775

частный случай!

189 и 475 взаимно простые числа

так как взаимно простые числа не имеют общих простых делителей, то их наименьшее общее кратное равно произведению этих чисел.

нок (189, 475) = 189 • 475 = 89775

как найти наименьшее общее кратное для 189 и 475

разложим на простые множители 189

189 = 3 • 3 • 3 • 7

разложим на простые множители 475

475 = 5 • 5 • 19

выберем в разложении меньшего числа (189) множители, которые не вошли в разложение

3 , 3 , 3 , 7

добавим эти множители в разложение бóльшего числа

5 , 5 , 19 , 3 , 3 , 3 , 7

полученное произведение запишем в ответ.

нок (189, 475) = 5 • 5 • 19 • 3 • 3 • 3 • 7 = 89775

Если ты в 10-11, то необходимо с массивом: const n=10; var a: array[1..n] of integer;           i,min,max: integer;           sum: real; begin for i: =1 to n do  readln(a[i]); min: =a[1];   max: =a[1]; for i: =1 to n do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; sum: =(min+max)/2; writeln(sum); end. без массива: uses crt; const n=10; var   x,i,min,max: integer;       sum: real; beginmin: =10000; max: =-10000; for i: =1 to n do beginreadln(x); if x> max then max: =x; if x< min then min: =x; end; sum: =(min+max)/2; writeln(sum); end.