Копировать его............
У нас будет 4 итерации цикла: (условно) 4-я, 5-я, 6-я и 7-я. Каждую итерацию к предыдущему числу прибавляется 8. То есть:
0 (это ещё не цикл) + 8 + 8 + 8 + 8 = 32
<h2>Ответ</h2>
32
var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
<span>end. </span>
Сам подумай,или начерти на листочке и все поймешь!