C одной стороны перед словом <span> Paper.doc есть пробел, что делает все варианты неправильными=))</span>
с другой сторны, все 4 варианта могут являться способом задания пути к файлу...
Var
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
<span>end.</span>
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
це слово-підкова.)))))))))))))))))))))))))))))))
Дано
Решение.
формулы: I = i*K, N = 2^i
получим i для первого и второго алфавита.
отсюда имеем во втором алфавите отводится в два раза больше памяти под хранение.
так как N = 2 ^ i
то имеем что в первом алфавите N = 2, а во втором N = 4