09kok90

04.06.2022 22:57

Химия

Есть ответ 👍

В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 1;4;0;4;4;5;3;4;9;0 соответственно. Определите значение переменной c после выполнения следующего фрагмента программы:

1) c := 0;

for i := 1 to 9 do

if A[i-1] < A[i] then begin

t:= A[i];

A[i]:= A[i - 1];

A[i-1]:= t

end

else

c:= c + 1;

2) c := 0;

for i := 1 to 9 do

if A[i-1] >= A[i] then begin

t:= A[i];

A[i]:= A[i - 1];

A[i-1]:= t

end

else

c:= c + 1;

3) c := 0;

for i := 1 to 9 do

if A[i] < A[0] then begin

c := c + 1;

t := A[i];

A[i] := A[0];

A[0] := t;

end;

4) c := 0;

n := 10;

for i:=0 to n-2 do begin

c := c + A[i] - A[i+1];

end;

5) n:= 10;

c:= 0;

for i:=1 to n-1 do

if A[i] > A[i-1] then begin

A[i]:= A[i] - A[i-1];

c:= c + A[i]

end;

6) n:= 10;

c:= 0;

for i:=1 to n-1 do begin

if A[i] > A[i-1] then

A[i]:= 2*A[i] - A[i-1];

c:= c + A[i]

end;