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>
Ответ:
Работу процессора ускоряет процессорный кэш, а также оперативная память
Объяснение:
Для создания архивного файла необходимо выполнить следующие действия:
1-Открыть Проводник.
2-Выделить файлы.
3-Щелкнуть правой клавишей мыши.
4-Выбрать архиватор
5-Выбрать одну из команд:
a) «добавить в архив (к архиву)»;
б) «добавить в архив (к архиву)» с предложенным именем .
1 - А (если 1 символ занимает один байт, то 60*1 = 60)
2 - Б
3 - В (2^8 = 256)
4 - В
5 - А