Program table;
var
f, i: integer;
k: real;
begin
for i := 1 to 20 do
writeln(i, ' (фунт) = ', (i * 0.4):1:3, ' (кг)');
end.
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
Графические примитивы это заранее определенные элементы, которые можно поместить в чертеж при помощи одной команды. Каждый графический примитив формируется на основании геометрического описания объекта.
Примитивы можно классифицировать:
<span>односложные и составные;
плоские и объемные (3d)</span>
Большинство команд обрисовки базовых примитивов собраны в подменю Рисовать. Каждый примитив формируется своей командой, чаще всего совпадают по имени с примитивом. Для некоторых примитив пользователю предлагается несколько способов построения одного и того же примитива по различным исходным данным, например окружность можно построить по центру и радиусу, по центру и диаметру, по трем точкам на плоскости и т.д. Каждый примитив обладает рядом свойств (например, принадлежность слою, цвет, видимость, тип линии и т.д.).
Некоторые команды требуют ввода дополнительных опций в командную строку.
Источник : http://life-prog.ru/view_autocad.php?id=9
Http://txt.org/<span>ftp.net
</span>Ответ: Г В Ж Е Д Б А