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.
Не нашли ответ?
Похожие вопросы