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.
можешь проверить, вот дописанная программа :
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.