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

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

Какое число ввел пользователь, если результатом исполнения программы var a: array [1 ... 8] of integer; i, sum: integer; begin Readln (a[1]) ; sum : = 0; for i : = 2 to 8 do a[i] : = a[i - 1] + 3; for i : = 8 downto 1 do sum : = sum + a[i];

1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.

Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .

Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.

Результат исполнения программы число 100, нужно найти какое число ввели var a: array [1 ... 8] of integer; i, sun: integer; begin ReadIn (a[1]) ; sum:=0; for i : = 2 to 8 do a[i] : = a[i-1]+3; for i:=8 downto 1 do sum: = sum + a[i]; writeln (sum) ;