Вычислить сумму и количество положительных элементов массива x. x(100). Turbo Pascal

Предыдущий
вопрос Следующий
вопрос

Пример кода на Turbo Pascal для вычисления суммы и количества положительных элементов в массиве x(100):

program SumAndCountPositives;
var
x: array[1..100] of Integer;
sum, countPositives, i: Integer;
begin
sum := 0;
countPositives := 0;
// Ввод элементов массива
for i := 1 to 100 do
begin
write('Введите элемент x[', i, ']: ');
readln(x[i]);
// Проверка на положительность элемента
if x[i] > 0 then
begin
sum := sum + x[i];
countPositives := countPositives + 1;
end;
end;
writeln('Сумма положительных элементов: ', sum);
writeln('Количество положительных элементов: ', countPositives);
end.

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