Const maxN = 100; // Максимальное кол-во элементов массива var n, i: longint; middle, sum, sum2: real; // Может быть нецелым числом a: array[1..maxN] of real; begin write('Введите количество элементов массива: '); readln(n); sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое write('Введите элементы массива через пробел: '); for i := 1 to n do begin read(a[i]); sum := sum + a[i]; end; middle := sum / n; // Вычисляем среднее арифметическое writeln('Среднее арифметическое = ', middle); sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического for i := 1 to n do if a[i] < middle then sum2 := sum2 + a[i]; writeln('Сумма элементов, меньших среднего арифметического = ', sum2); end.
Формат. Формат шрифта подразумевает под собой: выбор подчеркивания; подбор ширины;определение цвета шрифта; выбор шрифта; подбор начертания; выбор размера; кернинг шрифта; смещение шрифта; шрифтовые спецэффекты; индексацию.
Характеристики шрифта: Гарнитура, кегль, начертание, ширина, подчеркивание, кернинг, цвет шрифта, смещение символов шрифта, параметры анимации, индексация, регистр шрифта.
Но если попроще:Шрифтов много, отличаются они друг от друга по 3-м параметрам: Гарнитура, размер символов, начертание.А все остальное - лишь детализация.
var n,k:integer;
begin
k:=0;
writeln (' Признак окончания ввода - число 0');
readln(n);
while n<>0 do begin
if n mod 2 = 0 then k:=k+1;
readln(n);
end;
writeln (k);
end.