begin
var a := ReadArrInteger(10);
var j := a.FindIndex(x -> x = 3);
Print(j > -1 ? (j + 1).ToString : 'No')
end.
Сначала подсчитать сколько символов на одной странице
25*80=2000 символов на странице
Теперь можно узнать объём текстовой информации умножив кол-во символов на информационный объём одного символа в Unicode (16 бит)
2000*16=32000 Бит объём текстовой информации на странице
0. <span>D:ИГРЫ/ГОНКИ/ТАЧКИ.
1. </span>D:ИГРЫ/ГОНКИ - подняться на один уровень вверх.
2. D:ИГРЫ/ГОНКИ/<span>СТРАТЕГИИ - спуститься в каталог "СТРАТЕГИИ".
3. </span>D:ИГРЫ/ГОНКИ/СТРАТЕГИИ/CRUSADER - спуститься в каталог "CRUSADER".
Ответ: D:ИГРЫ/ГОНКИ/СТРАТЕГИИ/CRUSADER.
"Подняться на один уровень вверх"
1.
А) Истина
Б) Истина
В) Ложь
Г) Истина
Д) Ложь
2.
d f d^f d\/f -d -f
1ложь ложь ложь ложь истина истина
2ложь истина ложь истина истина ложь
3истина ложь ложь истина ложь истина
4истина истина истина истина ложь ложь
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>