Спаскалем: создать программу, которая считает сумму и произведение элементов массива случайным образом и с клавиатуры.

Var  a: array[1..100] of integer;   n, i: byte;   sum, p: integer; begin  writeln('1. случайным образом');   randomize;   write('введите размер массива: ');   readln(n);   sum: =0; p: =1;   for i: =1 to n do    begin      a[i]: =random(101)-50;       write(a[i]: 4);       sum: =sum+a[i];       p: =p*a[i];     end;   writeln;   writeln('сумма = ', sum: 5);   writeln('произведение = ', p: 5);   sum: =0; p: =1;   writeln('');   writeln('2. с клавиатуры');   for i: =1 to n do    begin    write('элемент ', i, ' = ');     readln(a[i]);     sum: =sum+a[i];     p: =p*a[i];     end;   writeln('сумма = ', sum: 5);   writeln('произведение = ', p: 5); end.

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(12,0,50); a.println;   var m: =a.average;   write('элементы, меньшие среднего значения: ');   writeln('таких элементов ',a.where(x-> x< m).println.count) end. пример 34 12 5 35 29 15 23 22 41 27 12 36 элементы, меньшие среднего значения: 12 5 15 23 22 12 таких элементов 6 begin   var a: =arrrandom(13,0,100); a.println;   write('элементы, меньшие 50: ');   writeln('таких элементов ',a.where(x-> x< 50).println.count) end. пример 25 17 68 71 27 37 83 32 63 87 29 12 34 элементы, меньшие 50: 25 17 27 37 32 29 12 34 таких элементов 8

Blu-ray disc - это формат оптического носителя, используемый для записи с повышенной плотностью хранения цифровых данных, включая видео высокой чёткости. в октябре 2000 года был представлен первый прототип нового носителя. а в январе 2006 года был представлен современный вариант на международной выставке потребительской электроники consumer electronics show (ces). весна 2006 года - коммерческий запуск формата blu-ray ("синий луч"). диск получил своё название от использования для записи и чтения коротковолнового «синего» лазера. кстати, с момента появления формата в 2006 году и до начала 2008 года у blu-ray существовал серьёзный конкурент  — альтернативный формат hd dvd. и вот несколько характеристик диска:  

год выпуска: 2006тип носителя: оптический диск.ёмкость: 25 гб (однослойный), 50 гб (двухслойный), 100/128 гб (bdxl)международный стандарт: blu-ray disc association.размер: диаметр 120 мм, толщина 1,2 мм.применение: хранение аудио, видео и данных.