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

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

В начале программы объявляются целые переменные sum, i  и одномерный массив целых чисел m: array[1..10] of Integer.

Натуральное число N вводится с клавиатуры. Далее в цикле, организованном с помощью оператора FOR осуществляется ввод элементов массива. После ввода элементов цикл заканчивается и начинается следующий, где проверяется, положительный ли элемент. В случае истинности этого условия, элемент ряда суммируется с переменной sum. После выхода из цикла выводится полученная сумма функцией write(). На этом программа заканчивается.

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

Алгоритм программы представлен в виде блок-схемы:

 

Текст программы  на языке Pascal

В среде программирования на языке Pascal, например,  Borland Pascal 7.0 вводим текст программы:

uses crt;

var
m: array[1..10] of Integer;  // объявление массива
sum, i: Integer;   // объявление целых переменных
begin         // начало программы
clrscr;        // очистка экрана   
sum:=0;        //приравнивание к нулю начального значения суммы
for i:=1 to 10 do        // объявление цикла от 1 до 10
begin
write('m[',i,']=');
readLn(m[i])        // ввод I-го элемента массива
end;            
for i:=1 to 10 do      // объявление цикла от 1 до 10
if (m[i]>0) then  // проверка , оложителен ли i-ый элемент одномерного массива
sum:=sum+m[i];  //  подсчет суммы положительных элементов массива
writeln('Summa = ',sum);  // вывод полученной суммы после завершения цикла
readkey   // ожидание нажатия клавиши

 

После компиляции программы и запуска на выполнение получаем результат: