По-перше треба поглядити на світлофор и якщо він зелений то іти якщо червоний то ні
1 байт это 1 буква.
Книга займет 375000 байтов.
На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
write('Input a[',i,']=');
readln(mas[i]);
x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);readln;
<span>end.
Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = </span>
var a,s:real;
b:integer;
begin
s:=0;
for b:=1 to 5 do begin
writeln('Введите оценку:');
read(a);
s:=s+a;
end;
s:=s/5;
writeln('Средний балл:',s);
end.