1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
А не соблаговолите ль вы ввести begin в начале ? Или я его не вижу ?
Изначально i = 4
Проверяем 4<10? Да, значит прибавляем 3 и получаем 7.
Проверяем 7<10? Да, значит прибавляем 3 и получаем 10.
Проверяем 10<10? Нет, значит цикл больше не выполняется.
Ответ: Тело цикла выполнится два раза