const
n = 9; //константа может быть любой
type
mas = array[0..n] of integer; //тип задал только для процедуры, без подпрограмм отдельный тип не нужен
procedure copy_mas(var a, b: mas);
var
i, i1: integer;
begin
i1 : = 0;
for i : = 0 to n do
if (a[i] > = 0) and (a[i] < = 10) then
begin
b[i1] : = a[i];
i1 += 1;
end;
end;
ответ: слово «SPAM» появилось в 1936 г. Оно расшифровывалось как SPiced hAM (острая ветчина) и было товарным знаком для мясных консервов компании Hormel Foods — острого колбасного фарша из свинины. Всемирную известность в применении к назойливой рекламе термин SPAM получил благодаря знаменитому скетчу с одноимённым названием из известного шоу «Летающий цирк Монти Пайтона» (1969) комик-группы Монти Пайтон, в котором слово «спам» в общей сложности упоминается более ста раз
Объяснение:ерез некоторое время слово «СПАМ» стало нарицательным, им стали называть все, что навязывалось вопреки желанию, в частности различные и прочую макулатуру рекламного характера, которой забивали почтовые ящики. А уже потом этим термином стали характеризовать ненужную рекламную корреспонденцию, рассылаемую по электронной почте.
