1 Тема від strelok

  • strelok
  • Користувач
  • Поза форумом
  • Дата реєстрації: 06.12.2012
  • Повідомлень: 1
    • Репутація: 0

Тема: Обчислити середнє значення голів за матч

Маємо значення кількості голів забитих у 40 матчах. Обчислити середнє значення за матч і визначити № матчу коли кількість голів була ьаксимально.

2 Відповідь від Пам'ять не може бути READ Востаннє редагувалося Torbins (08.12.2012 11:16:54)

  • Дата реєстрації: 08.06.2012
  • Повідомлень: 2 031
    • Репутація: 743

Re: Обчислити середнє значення голів за матч

program match;
var
 i,max:byte;
 match : Array[1..40] of integer;
 average:real;
begin
  {тут вставити код заповнення масива}

 max := 0; 
 average := 0;
 for i:=1 to 40 do
  begin
   average := average+match[i];
    if(match[i] > max)
     max := i;
  end; 
 
 average := average / 40;
 writeln('Найбільше голів, забили у ',max,' матчі');
 writeln('Середнє арифметичне голів: ',average);
end.

Тут мається на увазі, що масив match уже заповнений. Тобто введені значення голів за кожен матч.