Известны результаты двух спортсменов в каждом из пяти видов спорта в баллах. Определить сумму баллов, полученных каждым спортсменом.(цикл while,repeat,for).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
