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

Ответы 5

  • проверила работает...
    • Автор:

      bond
    • 6 лет назад
    • 0
  • спасибо
  • только баллы я взяло целые числа ..
  • может надо было вещественными?
    • Автор:

      anikahida
    • 6 лет назад
    • 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. 
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years