Известны результаты двух спортсменов в каждом из пяти видов спорта в баллах. Определить сумму баллов, полученных каждым спортсменом.(цикл while,repeat,for).
anya6941998:
МОЖНО
просто про массив ничего не пишет..вдруг не проходили...простите
я с этой задачи вообще запуталась(
Вводить по одному и сразу плюсовать?
по одному
В принципе, можно и так... действительно)
А что тут путать? Найти сумму первых пяти значений, потому сумму вторых пяти.
мы давно решали такие задачи
это лёгкие задачки ....сей час сделаем если время не подведёт...))
я сама решила задачу с оператор case..of или IF
Хорошо,буду ждать
Хорошо,буду ждать
Ответы
Ответ дал:
0
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.
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.
проверила работает...
спасибо
только баллы я взяло целые числа ..
может надо было вещественными?
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
7 лет назад