Написать программу, которая находит сумму элементов последовательности из 5 целых чисел....

Question

Написать программу, которая находит сумму элементов последовательности из 5 целых чисел. Получить новую последовательность путем замены всех ненулевых
элементов исходной последовательности на разность между элементом последовательности и найденной суммой.

Comments

А программу саму полностью написать не сможешь? Просто я так мало понимаю

---

я не изучал паскаль:(

---

я basic изучал

---

извиняюсь:(

---

Я напишу программу. Только завтра уж. Надеюсь, Вам не срочно?

---

Уточните пожалуйста, для какой среды разработки вам нужен код?

---

PascalABC или Delphi

---

?*

---

ой, извините, не увидел, что для PascalABC нужно...

---

сейчас напишу

Answer 1

Program Project1;
var   
a:array[1..5] of Integer;   
i, j, sum:Integer;   
s:string;
begin 
Readln(s); 
sum:=0; 
 for i:=1 to 5 do 
    begin   
         if (Length(s)>=2) then   
            begin     
              j:=Pos(' ', s);     
             a[i]:=StrToInt(Copy(s, 1, j-1));     
             sum:=sum+a[i];     
             Delete(s, 1, j);   
             end   
         else   
     begin     
      a[i]:=StrToInt(s);     
      sum:=sum+a[i];   
    end; 
end; 
   for i:=1 to 5 do 
      begin   
         if (a[i]<>0) then   
              begin     
                a[i]:=a[i]-sum;     
                Write(a[i], ' ');   
              end   
         else   
           begin     
              a[i]:=a[i];     
              Write(a[i], ' ');   
           end; 
      end; 
end.

Comments

Будут вопросы-обращайтесь.