Question

Найти сумму положительных чисел из 10, введённых с клавиатуры. Программа Паскаль.

Answer 1

Var
  i, x, sum:integer;

begin
  sum:=0;
  for i:=1 to 10 do
  begin
    readln(x);
    sum:=sum+x;
  end;
  writeln(sum);
end.

Answer 2

Для решения данной задачи на языке программирования Паскаль, необходимо выполнить следующие шаги:

1. Объявить переменные, которые будут использоваться в программе. Нам понадобится переменная для суммы положительных чисел (назовем ее sum), а также переменная для хранения вводимых чисел (назовем ее num).

2. Инициализировать переменную sum нулевым значением, так как на данный момент у нас нет положительных чисел.

3. С помощью цикла for, который будет выполняться 10 раз, считывать числа с клавиатуры и проверять, является ли каждое число положительным.

4. Если число положительное, то добавляем его к переменной sum.

5. По окончании цикла выводим значение переменной sum, которая будет содержать сумму положительных чисел.

Пример кода на языке Паскаль:

program SumOfPositiveNumbers;

var
  sum, num: integer;
  i: integer;

begin
  sum := 0; // инициализация суммы нулевым значением

for i := 1 to 10 do
  begin
    write('Введите число: ');
    readln(num);

if num > 0 then
      sum := sum + num; // добавляем положительное число к сумме
  end;

writeln('Сумма положительных чисел: ', sum);
end.

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