1 ) У масиві В [1..7] замініть всі від'ємні елементи останнім.2) У масиві С [1..к] визначне суму елементів з проміжку [х1;х2]На русском1) В массиве В [1..7] замените все отрицательные элементы последним.2) В массиве С [1..к] на...

1 ) У масиві В [1..7] замініть всі від'ємні елементи останнім. 2) У масиві С [1..к] визначне суму елементів з проміжку [х1;х2] На русском 1) В массиве В [1..7] замените все отрицательные элементы последним. 2) В массиве С [1..к] найдите сумму элементов из промежутка [х1; х2]
Гость
Ответ(ы) на вопрос:
Гость
Var   a: array [1..7] of real;    i: integer;     m,s:real; Begin     For i:=1 to 7 do                  Read (a[i]);      For i:=1 to 7 do                  if a[i]<0 then                     a[i]:=a[7];    For i:=1 to 7 do             write (a[i],' '); end. ================================ Var   a: array [1..100] of integer;    k,x1,x2,i: integer;     s:real; Begin     s:=0; read(k);    read(x1); read(x2); For i:=1 to k do                  Read (a[i]); For i:=1 to k do  begin      If a[i] in [x1..x2] then                s:=s+a[i]; end; write (s,' ');  end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы