исходный код на языке программирования pascal
const n = 10;
var
a: array[1..n] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i: =1 to n do a[i]: =random(50)+1;
sum : = 0;
for i: =1 to n do sum : = sum + a[i];
avrg : = sum/n;
// весь массив
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('среднее арифм.: ',avrg: 4: 2);
// больше avrg
for i: =1 to n do if a[i]< avrg then write(a[i]: 3);
writeln;
end.
пример(ы) выполнения программы на языке pascal
13 23 45 2 9 28 47 30 18 12
среднее арифм.: 22.70
13 2 9 18 12
1) конус, целиндр, сфера.
2) Ко́нус инструмента́льный — конический хвостовик инструмента (сверло, зенкер, фреза, развёртка, зажимной патрон, электрод контактной сварки) и коническое отверстие соответствующего размера (гнездо) в шпинделе или задней бабке, например, токарного станка.
3) Сфе́ра (др.-греч. σφαῖρα «мяч, шар[1]») — геометрическое место точек в пространстве, равноудаленных от некоторой заданной точки (центра сферы).
4) Цили́ндр (др.-греч. κύλινδρος — валик, каток) — геометрическое тело, ограниченное цилиндрической поверхностью и двумя параллельными плоскостями, пересекающими её.
Объяснение:
Выровненный по центру, или центрированный, текст располагается так: с обеих сторон каждой строки ширина свободного пространства разная. С обеих сторон края абзаца получаются ровными.