Оценки в соревнованиях по фигурному катанию выставляются 9 судьями. Потом одна самая...

0 голосов
97 просмотров

Оценки в соревнованиях по фигурному катанию выставляются 9 судьями. Потом одна самая низкая и одна самая высокая оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. Составьте программу, которая определяет зачетную оценку спортсмена. Оценки судей ввести с клавиатуры(Целые числа от 1 до 6)


Информатика (14 баллов) | 97 просмотров
0

На каком языке програмирования нужно написать програму?

0

pascal

0

сможешь помочь?

0

Увы могу только на C++

0

это плохо

0

вопрос жизни и смерти

0

могу только тогда рассказать какие действия выполнить надо если это поможет (не в ответ так как это все таки неполный ответ)

0

var max,min,i:integer; b:real; a:array[1..9]of integer;beginfor i:=1 to 9 do begin while (a[i]<1) or (a[i]>6) do begin write(i,' оценка: '); readln(a[i]); end; if i=1 then begin max:=a[1]; min:=a[1]; end; if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; b:=b+a[i]; end;b:=(b-min-max)/7;writeln('Зачетная оценка: ',b);end. вот посмотри что тут не так

Дан 1 ответ
0 голосов

Var 
  min,max,i: byte; 
  kontrol: boolean;
  rez: real;
  a: array[1..9] of byte;
begin
  min:=6; 
  max:=1; 
  rez:=0;
  kontrol:=true;
  for i:=1 to 9 do begin
    write ('введите ',i,'-ю оценку:  ');
    readln (a[i]);
    if (a[i]<1) or (a[i]>6) then kontrol:=false;
    if a[i]>max then max:=a[i];
    if a[i]    rez:=rez+a[i] 
  end;
  rez:=(rez-min-max)/7;
  if kontrol=true
    then writeln ('Зачетная оценка: ',rez:6:3)
    else writeln ('Введены некорректные данные')
end.
_________________________

Пример:
введите 1-ю оценку:  2
введите 2-ю оценку:  3
введите 3-ю оценку:  4
введите 4-ю оценку:  4
введите 5-ю оценку:  4
введите 6-ю оценку:  5
введите 7-ю оценку:  5
введите 8-ю оценку:  5
введите 9-ю оценку:  6
Зачетная оценка:  4.286

(3.9k баллов)