Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
<span>Таблица истинности AvA&B
</span>
<span>Ядро – это модули, которые выполняют основные функции операционной системы.</span>
Архитектура ПК:
-процессор
-внешняя память
-внутренняя память
-периферийные устройства
Сообщение составит 32 * 2500 = 80000 бит = 10000 байт