Question

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

Answer 1

program Positiv;
var i:integer; x,sum:real;
begin
  sum:=0;
  for i:=1 to 10 do
  begin
    write('введите ',i,'-е число: ');
    readln(x);
    if x>0 then sum:=sum+x;
  end;
writeln('Cумма положительных чисел равна ',sum);
end.

Answer 2

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

Вот пример программы на языке Pascal, которая позволяет ввести с клавиатуры 10 любых чисел, вычисляет и выводит на экран сумму только положительных из них:

program SumOfPositiveNumbers;

var
  i, number, sum: integer;

begin
  sum := 0;
  
  for i := 1 to 10 do
  begin
    write('Введите число ', i, ': ');
    readln(number);
    
    if number > 0 then
      sum := sum + number;
  end;
  
  writeln('Сумма положительных чисел равна ', sum);
end.

В этой программе используется цикл `for`, который позволяет ввести 10 чисел с клавиатуры. Затем каждое число проверяется на положительность, и если число положительное, то оно добавляется к переменной `sum`. В конце программы выводится сумма положительных чисел на экран.

Примечание: В данном примере предполагается, что пользователь будет вводить только целые числа. Если вам нужно работать с числами с плавающей запятой, вам следует использовать тип `real` вместо `integer` и изменить соответствующие операции сравнения.

Надеюсь, это поможет вам создать программу на языке Pascal для вычисления и вывода суммы положительных чисел! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их.