Const n=10;
Var i:Integer ;s:real;
A:array [1..10]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
A[i]:=random(19)+1;
Write (' A[', i, ']=', A[i]) ;
S:=s+A[i];
End;
Writeln;write(' s=', s/n);
End.
Отв1ет: 1 символ - 2 байта(согласно кодировке). Значит, запятая и пробел - 4 байта. Всего увеличилось ко- во информации на 10, следовательно слово - это 10 - 4=6.
Объяснение:
Предлагаю пример в Excel
Копируете необходимый элемент, задаете параметры на входе, получаете таблицу истинности на выходе.
A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"