Оценки в соревнованиях по фигурному катанию выставляются 9 арбитрами. Позже одна
Оценки в соревнованиях по фигурному катанию выставляются 9 арбитрами. Позже одна самая низкая и одна самая высочайшая оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. Составьте программу, которая определяет зачетную оценку спортсмена. Оценки арбитров ввести с клавиатуры(Целые числа от 1 до 6)
Задать свой вопрос
Мария
На каком языке програмирования нужно написать програму?
Inna Riva
pascal
Лена Поддымкина
сможешь помочь?
Люда Растатцева
Как досадно бы это не звучало могу только на C++
Евген
это плохо
Иван Трепнау
вопрос жизни и погибели
Максим Сапей
могу только тогда рассказать какие действия выполнить надобно если это поможет (не в ответ так как это все таки неполный ответ)
Злата Иванов-Швец
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]
1 ответ
Дябичева
Александра
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]lt;1) or (a[i]gt;6) then kontrol:=false;
if a[i]gt;max then max:=a[i];
if a[i]lt;min then min:=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
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]lt;1) or (a[i]gt;6) then kontrol:=false;
if a[i]gt;max then max:=a[i];
if a[i]lt;min then min:=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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов