Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>
А ФОТО В УЧЕБНИКЕ МОЖЕШЬ ПОКАЗАТЬ
program raf105;
var
a,i,n,c: integer;
x,x2: boolean;
begin
write('Введите количество чисел: ');
readln(n);
writeln('Вводите ',n,' чисел по очереди');
readln(a);
if a >= 0
then x2:= True
else x2:= False;
for i:=2 to n do
begin
readln(a);
if a >= 0
then x:= True
else x:= False;
if x <> x2
then c:= c+1;
x2:= x;
end;
writeln('Количество изменений знака: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Израиль: цены на съем жилья - самые высокие за всю историю. Судя по всему, положение со съёмным жильём сейчас сложное. Хотя, безусловно, многое зависит от конкретных условий: состояния квартиры, срока аренды, местоположения квартиры и т.д