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