Question

Дан вектор B[1:20].А)Найти сумму S элементов в диапозоне [0:5].Б)Найти произведение Р отрицательных элементов.В)Поменять местами минимальный и максимальный элементы вектора.Г)Удалить минимальный элемент. Помогите пожалуйста решить.

Answer 1

Uses crt;
var b:array [1..20] of real;
    x,min,max:integer;
    sum,pr,t:real;
begin
     sum:=0; pr:=1;
     for x:=1 to 20 do
     begin
          write('b[',x,']:'); readln(b[x]);
          if b[x]<0 then pr:=pr*b[x];
     end;
     for x:=1 to 5 do
         sum:=sum+b[x];
     min:=1; max:=1;
     for x:=1 to 20 do
     begin
         if b[x]<b[min] then min:=x;
         if b[x]>b[max] then max:=x;
     end;
     t:=b[min];
     b[min]:=b[max];
     b[max]:=t;
     for x:=max to 19 do
         b[x]:=b[x+1];
     for x:=1 to 19 do
         write(b[x]:3:0);
     writeln;
     writeln('SUM:',sum); writeln('PROIZVEDENIE:',pr);
end.

Answer 2

Task A: Finding the sum of elements in the range [0:5]

To find the sum of elements in the range [0:5] of vector B[1:20], we need to add up the values of the elements at indices 0, 1, 2, 3, 4, and 5.

Let's assume the vector B[1:20] is [3, 7, 2, 9, 5, 1, 8, 4, 6, 0, 2, 5, 7, 1, 4, 6, 9, 2, 3, 5].

To find the sum, we add the values at indices 0, 1, 2, 3, 4, and 5: 3 + 7 + 2 + 9 + 5 + 1 = 27.

Therefore, the sum of elements in the range [0:5] is 27.