Question

Дан массив целых чисел, состоящий из 25 элементов. Подсчитать сумму   элементов массива, произведение положительных и количество нулевых   элементов. Результат вычисления вывести на экран.

Answer 1

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