РЕБЯТ ДАМ 20 БАЛЛОВ!!! В программе описан одномерный целочисленный массив с индексами от...

Question

РЕБЯТ ДАМ 20 БАЛЛОВ!!!
В программе описан одномерный целочисленный массив с индексами от 0 до 100. Ниже представлен фрагмент программы, обрабатывающей данный массив:
n:= 100;
for i:=0 to n do A[i]:=i;
for i:=1 to n do begin
A[i]:= A[i]-A[i-1];
end;
s:=A[90];
Укажите значение, которое после выполнения указанного фрагмента программы будет записано в переменную s.

Answer 1

В S будет 45

можешь проверить, вот дописанная программа :
var 
n, i, s: integer; 
a: array [0..100] of integer;
begin 
n := 100; 
for i := 0 to n do A[i] := i;
  for i := 1 to n do   begin   
A[i] := A[i] - A[i - 1];  
end;
 s := A[90]; 
writeln(s);end.