Выручайте. Задача, обьяснение. Совет

[Xardass]

Народ выручайте, не могу решить простые задачки.

1.Посчитать Сумму положительных чисел. Желательно десяти положительных
2. Для всех х от -5 до 5. Вычислить все Y по формуле 2*х (2 умножить на х) где х изменяеться с шагом 1.
3. Та же задача № 2, только шаг 0.5

Народ я ничего не смыслю в математику со 2 класса. Да и логика хреново очень работает. Посоветуйте мне учебник, а ещё лучше такой где блок схемы учитываються, а то с блоками проблемы ужасные!

И ещё одну решите пожалуйста

Написать программу которая считает сумму 10 чисел. Желательно описать её в лучшем ввиде, т.е. что бы данные вводились последовательно, а не сразу 10 переменными

[hinst]

могу помочь с суммой чисел:

x и sum: вещественные;
i: целочисленная
пошли
  Сумма равна нулю;
  для i от одного до десяти делаем:
    читаем x и наращиваем sum на x
  Выводим sum
и все.

От SV:
hinst, прошу прощения. За инициативу благодарен от лица форума.

To Xardass:
Тебя с нетерпением ожидает перенаправление во фриланс. Читай правила.

[Манжосов Денис :)]

Совсем непонятны условия задач. С 1 заданием ничего не понятно. Каких положительных чисел? Со вторым тоже неясно. Учитесь излагать свои мысли чётко.

2 задачу можно понимать так:

 для x от минус пяти до пяти выводим: y равен 2 умноженное на x

А можно и так:

для i от минус пяти до пяти:
   выводим: y равен 2 умноженное на x
   наращиваем x на еденицу

[SuperVisor]

Читаем правила раздела. За Вас НИКТО ничего делать не будет. Если будет - то с моей легкой руки помощь будет такая же, как в предыдущих постах. Моя позиция в этом вопросе абсолютно неоспарима.
Наработки в студию. Иначе - во фриланс.

[Xardass]

Ладно правила читану. А вот насчёт задач как мне в колледже дали, так и изложил.

Посоветуйте как поставить ограничение на кол-во чисел. Задача излагаеться ведь так: "Посчитать сумму положительных чисел". А если мне нада "Посчитать сумму десяти положительных чисел" так, то как это сделать

Program  Tutor
var y,s,x,g:integer;
begin
  s:=0
  Write ('Vvedite g');
  Read (g);
  Write ('Vvedite y');
  Read (y);
  begin
    x:=g+y;
    WriteLn ('x=', x:)
  End;
  Readln;
End.

Вот код, как сюда поставить ограничение на кол-во ввдоимых чисел

[Манжосов Денис :)]

"Посчитать сумму десяти положительных чисел"

program ameba;
const
  n = 10;
var
  a: array [1..n] of integer;
  i: byte;
  x: integer;
begin
  x := 0;
  for i := 1 to n do
   ReadLn(a[i]);
  for i := 1 to n do
    if a[i] > 0 then x := x + a[i];
  WriteLn(x);
 ReadLn;
end.

n - является ограничением кол-ва чисел.