[Страдалецъ]

Сообщение от Himera_3

да задать одномерный масив колличество которого не привышает 10
и вышитать сумму!
можно и не мосивом а через переменную

Ну тогда можно так:

Код:

program Example;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  ValCount,i,Value,Result: Integer;
begin
 repeat
  Write('Enter array size (2-10):');
  ReadLn(ValCount);
 until (ValCount >= 2) and (ValCount <= 10);

 Result := 0;
 for i := 1 to ValCount
 do begin
    Write('Enter '+IntToStr(i)+' value:');
    ReadLn(Value);
    Inc(Result,Value);
    end;
 WriteLn('Result: ',Result);
 ReadLn;
end.