Обработка одномерных массивов - PascalABC.NET

Формулировка задачи:

Составить программу вычисления, W=B+A/C+1. A - сумма положительных элементов массива; B - наименьший элемент массива; C - произведение элементов массива с нечетными номерами/

Решение задачи: «Обработка одномерных массивов»

Листинг программы

program a1;
uses crt;
const n=10;
type x=array [1..n] of integer;
var s:x;
    i:integer;
    a,b,c,w:real;
begin clrscr;
randomize;
for i:=1 to n do begin
s[i]:= random(50)-25;
write(s[i],' ');
end;
a:=0; c:=1;
for i:=1 to n do begin
if s[i]>0 then a:=a+s[i];
if b>s[i] then b:=s[i];
if odd(i) then c:=c*s[i];
end; 
writeln;
writeln('Cумма положительных элементов массива = ',a);
writeln('Hаименьший элемент массива = ',b);
writeln('Произведение элементов массива с нечетными номерами = ',c);
w:=b+a/c+1;
writeln ('W =  ',w:0:5);
readln
end.

Объяснение кода листинга программы

Объявлены переменные: s - одномерный массив, i - целочисленная переменная для цикла, a, b, c, w - вещественные переменные.
Задано значение константы n равное 10.
Введен тип данных x, который является одномерным массивом длиной n, содержащим целочисленные значения.
Задано значение переменной s типа x.
В цикле заполняется массив s случайными значениями от -25 до 25.
В цикле вычисляются значения переменных a, b и c. Переменная a накапливает сумму положительных элементов массива, переменная b содержит наименьший элемент массива, переменная c - произведение элементов с нечетными номерами.
Выводятся значения переменных a, b и c.
Вычисляется значение переменной w как сумма b и a, деленная на c и увеличенная на 1.
Выводится значение переменной w.
Программа ожидает ввода с помощью функции readln.