Введите с клавиатуры массив k3{n} определите сумму и количество положительных элементов массива. n вводится с клавиатуры. 0
Написать в pascalABC

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

program PositiveSum;

var
k3: array of integer;
n, sum, countPositives, i: integer;

begin
writeln('Enter the length of the array:');
readln(n);

SetLength(k3, n);

sum := 0;
countPositives := 0;

writeln('Enter the elements of the array:');
for i := 0 to n - 1 do
begin
readln(k3[i]);
if k3[i] > 0 then
begin
sum := sum + k3[i];
countPositives := countPositives + 1;
end;
end;

writeln('Sum of positive elements: ', sum);
writeln('Number of positive elements: ', countPositives);

end.