Question

Дан массив четных чисел, состоящий из 15 элементов. Заполнить его с   клавиатуры. Найти:
•    сумму элементов, имеющих нечетные индексы;
•    подсчитать количество элементов массива, значения которых больше заданного     числа T и кратны 5;
•    номер первого отрицательного элемента, делящегося на 5 с остатком 2.

Answer 1

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.