Var X:array[1..100] of integer; i,k:integer; S:real; Begin S:=0; Write('k = ');ReadLn(k); Write('Введите массив X[',k,']: '); For k:= 1 to k do Read(X[k]); i:=1; if X[1]<0 then Begin While (i<=k)and(X[i]<0) do Begin S:=S+X[i]; i:=i+1; End; End else Begin While (i<=k)and(X[i]>=0) do Begin S:=S+X[i]; i:=i+1; End; End; WriteLn('S = ',S); End.
1. 2 Массивы объявляются тем же оператором, что и обычные переменные 2. Не корректный вопрос: индекс - это обращения к определенному элементу массива, а у самого массива индекса нет. В вариантах ответа ничего похожего на это нет. 3. 4 Массивы заполняются теми же операторами, что и обычные переменные 4. 1 Есть такой ввода в бейсике - конструкция READ DATA 5. 1 Выведется четвертый элемент массива, т.к. нумерация идет с нуля, и первый имеет номер 0, второй - 1, третий - 2, а четвертый - номер 3, который и запрашивается в выражении А(3)
X:array[1..100] of integer;
i,k:integer;
S:real;
Begin
S:=0;
Write('k = ');ReadLn(k);
Write('Введите массив X[',k,']: ');
For k:= 1 to k do
Read(X[k]);
i:=1;
if X[1]<0 then
Begin
While (i<=k)and(X[i]<0) do
Begin
S:=S+X[i];
i:=i+1;
End;
End
else
Begin
While (i<=k)and(X[i]>=0) do
Begin
S:=S+X[i];
i:=i+1;
End;
End;
WriteLn('S = ',S);
End.