Дан массив B, состоящий из N элементов. Элементы массива - произвольные целые числа. Определить сумму элементов,

236

250

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

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

ksenia07schapov

Другие предметы

4,4(33 оценок)

USES Crt;
CONST N=20;
VAR
   B:ARRAY[0..N] OF INTEGER;
   I,IND: BYTE;   MAX,S:INTEGER;
BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     B[I]:=Random(35);     Write(B[I]:3);
   End;   WriteLn;
   MAX:=B[1];   IND:=1;
   { нахождение максимального значения и его индекса }
   FOR I:=2 TO N DO
     IF B[I]>MAX THEN Begin MAX:=B[I]; IND:=I; End;
   WriteLn(' Максимальное значение = ',MAX);
   { нахождение суммы элементов, расположенных до максимального элемента }
   S:=0;
   FOR I:=1 TO IND-1 DO
     S:=S+B[I];
   WriteLn(' Cумма элементов, расположенных до максимального элемента =',S);
END.