Program z1; Var a: array [1..100] of integer; n,i:integer; s:real; Begin write('Введите кол-во учеников - '); readln(n); for i:=1 to n do begin write ('Ученик №',i,', Оценка - '); readln(a[i]); end; s:=0; for i:=1 to n do begin s:=s+a[i]; end; s:=s/n; writeln('Средний балл - ',s);<span>End.</span>
Пусть основание равно х.
Тогда 3х+0=24 ⇒ х=24/3=8.
Система счисление - восьмеричная.
ноуТбук, например, связано же с компьютером...
Слишком мало балов
потому что 8 а надо 20 хотябы
пожалуйста добавь баллы