написать код программы на паскаль сума положительных элементов массива

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

program SumPositiveElements;

var
  arr: array[1..100] of Integer;  // Объявление массива
  n, i, sum: Integer;

begin
  // Ввод количества элементов массива
  Write('Введите количество элементов массива (не более 100): ');
  ReadLn(n);
  
  // Проверка корректности введенного количества элементов
  if (n < 1) or (n > 100) then
  begin
    WriteLn('Некорректное количество элементов. Программа будет завершена.');
    Exit;
  end;

  // Ввод элементов массива
  WriteLn('Введите ', n, ' элементов массива:');
  for i := 1 to n do
  begin
    Write('Элемент [', i, ']: ');
    ReadLn(arr[i]);
  end;

  // Инициализация суммы
  sum := 0;

  // Вычисление суммы положительных элементов
  for i := 1 to n do
  begin
    if arr[i] > 0 then
      sum := sum + arr[i];
  end;

  // Вывод результата
  WriteLn('Сумма положительных элементов массива: ', sum);
end.

Описание программы:

1. Программа запрашивает у пользователя количество элементов массива (до 100).
2. Затем она запрашивает ввод элементов массива.
3. Программа проходит по всем элементам массива и накапливает сумму положительных значений.
4. В конце выводит сумму положительных элементов на экран.

Вы можете скопировать этот код в среду разработки Pascal и выполнить его. Если у вас будут вопросы или нужна помощь, пишите!