[Himera_3]

Сдраствуйте!
Такой вопрос нужно задать массив вводимый с клавиатуры, с ограничением до либо 10 либо 2 элементов и вычеслить сумму цифр.
что не пыталась Дельфи на меня ругается !
Помогите всем чем сможете !!!!

[Vayrus]

Че то седня повалило блондинок-новичков по 1-2 сообщения, такое ощущение что какой-то "умный" парень захотел решить) все свои проблемы (задачки) за раз, прикинувшись девушкой))))) и лохонуть пацанов, нехорошо)))))))

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

Мда... Для такого вопроса надо отдельный перевод делать.
В общем, как я понял вам необходимо с клавиатуры задать размерность массива в диапазоне от 2 до 10 элементов. И заполнить опять-же с клавиатуры полученный массив. Так?

[Himera_3]

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

[Himera_3]

мисье вы ошибаетесь я действительно девушка.
Правда всеже крашенная!!

[M.A.D.M.A.N.]

А погуглить, сударыня, вы не удосужились?

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

Сообщение от 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.

[Himera_3]

Спосибо ребята!!!!