Найти сумму индексов отрицательных элементов массива X[1..n]. Помогите пожалуйста!
Ответы на вопрос
Ответил Аноним
0
Const
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.
Новые вопросы