Регистрация
1dashagun2
Есть ответ 👍

Дан массив четных чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: • сумму положительных

159
389
Посмотреть ответы 2

Ответы на вопрос:

Vitalyfifa
Vitalyfifa
4,8(99 оценок)
USES Crt;
 CONST  T=21;
 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(' Индексы элементов, значения которых кратны 3 и 5');
   FOR I:=1 TO 10 DO Begin
     IF (A[I]>0) AND (A[I]<10) THEN S:=S+A[I];
     IF (A[I] mod 3 =0) AND (A[I] mod 5 =0) THEN Write(I:3) ;
     IF I<>10 THEN IF A[I]+A[I+1]=T THEN K:=K+1;
   End;   WriteLn;
   WriteLn(' Сумма положительных элементов, значения которых < 10 = ',S);
   WriteLn(' Количество пар соседних элементов с суммой равной ',T,' = ',K);
 END.
oldtelephone20
oldtelephone20
4,5(41 оценок)

ответ: А мозги тебе на что?

Объяснение:

Популярно: Другие предметы