CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
<em>end;</em>
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
<span>
end.</span>
128 кб * 1024 * 8 = 1048576 бит
128 кб / 1024 = 0,125 мб
1. Нет.
2. Пуск - Стандартные - Блокнот
3. Ctrl + S
4. Файл - Открыть
5. Файл - Печатать
6. Да
7. Ctrl + C, Ctrl + X - Ctrl + V
жёлтый лимон синяя луковица лимон и 2 луковицы синей