Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: • удвоенную сумму
Вопрос посетителя
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:
• удвоенную сумму положительных элементов;
• вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго);
• количество пар соседних элементов с одинаковыми знаками.
Ответ эксперта
USES Crt;
VAR
A:ARRAY[0..10] OF INTEGER;
I: BYTE; S,K: INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение массива с клавиатуры }
FOR I:=1 TO 10 DO Begin
Write(‘Введите ‘,I,’ злемент массива ‘); ReadLn(A[I]);
End; WriteLn;
S:=0; K:=0;
WriteLn(‘ Индексы элементов, значения которых > значения предыдущего элемента’);
FOR I:=1 TO 10 DO Begin
IF (A[I]>0) THEN S:=S+A[I];
IF I<>1 THEN IF A[I] > A[I-1] THEN Write(I:3);
IF I<>10 THEN IF (A[I] * A[I+1])>0 THEN K:=K+1;
End; WriteLn;
WriteLn(‘ Удвоенная сумма положительных элементов = ‘,S*2);
WriteLn(‘ Количество пар соседних элементов с одинаковыми знаками = ‘,K);
END.
