Составить программу
5-9 класс
|
оценки на соревнованиях по фигурному катанию выставляются 9 судьями. потом одна самая высокая и самая низкие оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. составьте программу, которая определяет зачетную оценку спортсмена. оценки судей ввести в клавиатуры (целые числа от 1 до 6)
var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for 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.
Другие вопросы из категории
В паскаль(цикл)
Последовательно вводится N целых чисел.найти количество отрицательных среди них
Составить алгоритм..
3 сосуда (6,10,15л.) необходимо получить 7 литров в любом из сосудов.
прошу помогите.
Читайте также
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.