программы на паскале массив

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

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 до 10if (m[i]>0) then  // проверка , оложителен ли i-ый элемент одномерного массиваsum:=sum+m[i];  //  подсчет суммы положительных элементов массиваwriteln('Summa = ',sum);  // вывод полученной суммы после завершения циклаreadkey   // ожидание нажатия клавиши

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

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

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

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

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

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

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

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

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