Вопрос по информатике:

В массиве из 10 случайных чисел, заполненном из интервала [-10;20], найти количество положительных элементов; подсчитать

program arr;

var A: array[1..10] of integer; p, s: integer;

beginrandomize;p:= 0; //число положительных элементовs:= 0; // сумма значений элементов с нечетными индексами

for i:integer:= 1 to 10 do //заполнение массива и расчеты begin A[i]:= random(31) - 10;write(A[i] : 4);if A[i] > 0 then p:= p + 1;if i mod 2 > 0 then s:= s + a[i];end;

writeln(); writeln(); // вывод результатовwriteln(\' Сумма нечетных элементов s = \', s);writeln(\' Число положительных элементов p = \', p);writeln();

for i:integer:= 1 to 10 do //замена элементов массива begin if A[i] < 10 then A[i]:= 10;write(A[i] : 4)endend.