Составить программу нахождения произведения 20 введенных пользователем чисел.

Var i,m: integer; mass: array[1..20] of integer; begin for i: =1 to 20 do read(mass[i]); m: =mass[1]; for i: =2 to 20 do m: =m*mass[i]; writeln(m); end.

Const n =5; //константа var a: array [1..n] of integer; //массив под 5 чисел i,x,j: integer; begin for i: = 1 to n do //ввод чисел begin readln(a[i]); end; writeln('числа в порядке возрастания: '); for i: = 1 to n do //сортировка массива for j: = 1 to n do begin   if (a[i]< a[j]) then // если i-й элемент < j-го, то меняем местами   begin   x: =a[i];   a[i]: =a[j];   a[j]: =x; end; end; for j: = 1 to n do //вывод чисел   if j < > 5 then write(a[j]+',') else   write(a[j]); readln end.

Локальная эта сеть объединяет компьютеры расположенные в пределах одного здания(одна комната одно учреждение завод) причиной создания локальной сети является автоматизация промышленных процессов обработка различных документов. каждый компьютер подключённый к локальной сети осуществляет связь с сетевого адаптера. в каждой таблице  бд  может существовать первичный  ключ. под первичным  ключом  понимают поле или набор полей, однозначно (уникально) идентифицирующих запись. первичный  ключ  должен быть минимально достаточным: в нем не должно быть полей, удаление которых из первичногоключа  не отразится на его уникальности.