Question

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

Answer 1

var  

 mas: array[1..10] of integer;

 i, sum: integer;

begin

 sum:=0;

 for i:=1 to 10 do

   begin

 write(i, ' элемент массива: ');

 readln(mas[i]);

 if mas[i] > 0 then

   sum:=sum+mas[i];

   end;

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

end.

Answer 2

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

program SumOfPositiveElements;

var
  arr: array[1..10] of integer;
  i, sum: integer;

begin
  sum := 0;

writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    readln(arr[i]);

if arr[i] > 0 then
      sum := sum + arr[i];
  end;

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

readln;
end.

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

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

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

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