USES Crt;
CONST N=30;
VAR
P:ARRAY[0..N] OF INTEGER;
I,T:BYTE; S:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение массива случайными числами }
WriteLn(' Значения элементов массива');
FOR I:=1 TO N DO Begin
P[I]:=Random(30); Write(P[I]:3);
End; WriteLn;
Write(' Введите значение переменной '); ReadLn(T);
S:=0;
FOR I:=1 TO N DO
IF P[I]>T THEN S:=S+P[I]; { сумма элементов массива > T }
WriteLn(' Сумма элементов массива > заданного значения = ',S);
END.
USES Crt;
CONST T=11;
VAR
A:ARRAY[0..15] OF INTEGER;
I,NP,FL: BYTE; S,K: INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение массива с клавиатуры }
FOR I:=1 TO 15 DO Begin
Write('Введите ',I,' злемент массива '); ReadLn(A[I]);
End; WriteLn;
S:=0; K:=0; FL:=0;
FOR I:=1 TO 15 DO Begin
IF I mod 2 =0 THEN S:=S+A[I]; { сумма элементов, имеющих четные индексы }
IF (A[I]>T) AND (A[I] mod 5 =0) THEN K:=K+1; { количество }
IF (A[I]<0) AND (A[I] mod 5 =-2) AND (FL=0) THEN Begin NP:=I; FL:=1; End;
End;
WriteLn(' Сумма элементов,имеющих четные индексы = ',S);
WriteLn(' Количество элементов, значения которых > ',T,' и кратны 5 = ',K);
WriteLn(' Номер первого отрицательного элемента, делящегося на 5 с остатком 2 = ',NP);
END.
CONST N=30;
VAR
P:ARRAY[0..N] OF INTEGER;
I,T:BYTE; S:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение массива случайными числами }
WriteLn(' Значения элементов массива');
FOR I:=1 TO N DO Begin
P[I]:=Random(30); Write(P[I]:3);
End; WriteLn;
Write(' Введите значение переменной '); ReadLn(T);
S:=0;
FOR I:=1 TO N DO
IF P[I]>T THEN S:=S+P[I]; { сумма элементов массива > T }
WriteLn(' Сумма элементов массива > заданного значения = ',S);
END.