1000000 Битов страница учебника
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
1) дерево
2)дерево
3)60 см
4) 1000см²
5) коричневый
6) ну уже сам(а) напиши!
B=132+ 120/10= 132+12=144
a= 144/12*10= 12*10=120
Ответ:120