Дан массив целых чисел, состоящий из 25 частей. Подсчитать сумму nbsp;nbsp;элементов

USES Crt;
nbsp;VAR
nbsp;nbsp;nbsp;A:ARRAY[0..25] OF INTEGER;
nbsp;nbsp;nbsp;I: BYTE; nbsp;nbsp;S,K: INTEGER; nbsp;nbsp;P: REAL;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;Randomize;
nbsp;nbsp;nbsp; Заполнение массива случайными числами
nbsp;nbsp;nbsp;WriteLn( Значения частей массива);
nbsp;nbsp;nbsp;FOR I:=1 TO 25 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;A[I]:=Random(10)-3; nbsp;nbsp;Write(A[I]:3);
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;S:=0; K:=0; P:=1;
nbsp;nbsp;nbsp;FOR I:=1 TO 25 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;S:=S+A[I]; nbsp; сумма частей массива
nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]gt;0 THEN P:=P*A[I]; произведение положительных частей массива
nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]=0 THEN K:=K+1; количество нулевых частей массива
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Сумма элементов массива = ,S);
nbsp;nbsp;nbsp;WriteLn( Произведение положительных частей массива = ,P:0:0);
nbsp;nbsp;nbsp;WriteLn( Количество нулевых частей массива = ,K);
nbsp;END.