В пейзаже объекты, расположенные дальше становятся? А) больше Б) меньше В) не меняются в размере

Объяснение:

Правильный ответ Б меньше

ответ б

Объяснение:и все только б

USES Crt;
 VAR
   A:ARRAY[0..25] OF INTEGER;
   I: BYTE;   S,K: INTEGER;   P: REAL;
 BEGIN
   ClrScr;  Randomize;
   { Заполнение массива случайными числами }
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO 25 DO Begin
     A[I]:=Random(10)-3;   Write(A[I]:3);
   End;   WriteLn;
   S:=0; K:=0; P:=1;
   FOR I:=1 TO 25 DO Begin
     S:=S+A[I];  { сумма элементов массива }
     IF A[I]>0 THEN P:=P*A[I]; { произведение положительных элементов массива }
     IF A[I]=0 THEN K:=K+1; { количество нулевых элементов массива }
   End;
   WriteLn(' Сумма элементов массива = ',S);
   WriteLn(' Произведение положительных элементов массива = ',P:0:0);
   WriteLn(' Количество нулевых элементов массива = ',K);
 END.

USES Crt;
 VAR
   A:ARRAY[0..10] OF INTEGER;
   I: BYTE;   S,K: INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO 10 DO Begin
     Write('Введите ',I,' злемент массива ');  ReadLn(A[I]);
   End;   WriteLn;
   S:=0; K:=0;
   WriteLn(' Индексы элементов, значения которых > значения предыдущего элемента');
   FOR I:=1 TO 10 DO Begin
     IF (A[I]>0) THEN S:=S+A[I];
     IF I<>1 THEN IF A[I] > A[I-1] THEN Write(I:3);
     IF I<>10 THEN IF (A[I] * A[I+1])>0 THEN K:=K+1;
   End;   WriteLn;
   WriteLn(' Удвоенная сумма положительных элементов = ',S*2);
   WriteLn(' Количество пар соседних элементов с одинаковыми знаками = ',K);
 END.