Известны результаты двух спортсменов в каждом из пяти видов спорта в баллах. Определить...

Question

Известны результаты двух спортсменов в каждом из пяти видов спорта в баллах. Определить сумму баллов, полученных каждым спортсменом.(цикл while,repeat,for).

Comments

МОЖНО

---

я с этой задачи вообще запуталась(

---

Вводить по одному и сразу плюсовать?

---

по одному

---

В принципе, можно и так... действительно)

---

А что тут путать? Найти сумму первых пяти значений, потому сумму вторых пяти.

---

мы давно решали такие задачи

---

я сама решила задачу с оператор case..of или IFХорошо,буду ждать

Answer 1

 program al;
 const n=5; 
const k=5;
 var b:array[1..n] of integer; 
     a:array[1..k] of integer; 
    i,s1,s2:integer;     
 begin       
    write('vvedite balli 1 sportsmena=');   
   for i := 1 to n do 
    readln(b[i]);   
   writeln ('vvedite balli vtorogo sportsmena='); 
    for i:= 1 to k do 
     readln(a[i]); 
     s1:=0;   
  s2:=0;   
   for i:= 1 to n do   
   s1:=s1+b[i];   
   for i:= 1 to k do 
    s2 := s2+a[i];   
   writeln ('s1=',s1,'s2=',s2); 
     readln; 
 end. 

Comments

спасибо