Показать сообщение отдельно
  #2  
Старый 14.01.2018, 17:02
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Код:
const
 n = 30;
 A = 5;
var
 i, sm: integer;
 X: array[1..n] of integer;
begin
 for i := Low(X) to High(X) do X[i]:= i;
 sm:= 0;
 if A < n then
  for i := A+1 to High(X) do Inc(sm, X[i])
 else sm:= 10;
 ShowMessage('Ответ: ' + IntToStr(sm));
end;
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием