В недавнем длина имени файла или папки была ограничена восемью символами с расширением не более трех символов. Это правило было известно как Конвенция 8.3. Иногда ваш компьютер обращается с длинными именами файлов не так, как с именами, соответствующими стандарту 8.3. В зависимости от операционной системы, если в названии файла встречаются пробелы, вы Должны заключить название в кавычки, чтобы оно читалось как единое имя. Если папка или файл имеют длинное имя, которое необходимо сократить до восьми знаков, название папки представляется шестью первыми буквами названия и номером, например, progra1 вместо Program Files. Примеры переименования папок, названия которых начинаются одинаково, приведены в 2.2.
Const n=40; var i,s1,s2,k:integer; s:real; a:array[1..n] of integer; begin Randomize; Write('Сгенерированный массив: '); s:=0; s1:=0; s2:=0; k:=0; for i:=1 to n do begin a[i]:=Random(21); Write(a[i],' '); if a[i] mod 2<>0 then begin s:=s+a[i]; Inc(k) end; if a[i]<=10 then s1:=s1+a[i]; if a[i] mod 3=0 then s2:=s2+a[i] end; Writeln; Writeln('Ср.арифм.нечетных = ',s/k); Writeln('Сумма не больших 10 = ',s1); Writeln('Сумма кратных 3 = ',s2) end.
