Решить. по массивам (паскаль).в спортивных соревнованиях 10 судей выставили свои оценки спортсмену. итоговая оценка определяется так: самая наибольшая и самая наименьшая оценки из общей суммы удаляются (если таких оценок несколько, то удаляется только одна из них), затем среди оставшихся подсчитывается среднее арифметическое. написать программу, которая позволила бы по известным оценкам судей автоматически выставлять итоговую оценку спортсмену.решая эту хотелось бы чтобы была расписана каждая строчка что в ней происходит.

👇

Ответ:

vita9251

05.01.2021

Program Sport;
uses crt;
const n = 10; {количество оценок}
var {раздел описания переменных}
a:array [1..n] of integer; {массив с оценками}
max,min,i:integer; {max и min - наибольшая и наименьшая оценки; i -счётчик}
sum:real;{сумма, а потом среднее арифметическое (результат)}
begin
writeln('Просим судей выставить свои оценки:'); {вывод строки}
for i:=1 to n do {организуем цикл ввода оценок}
    begin
      write(i,'-й судья: '); readln(a[i]);{вывод строки и ввод оценки}
    end;
writeln(); {вывод пустой строки (для красоты)}
min:=a[1]; {предполагаем для начала, что первая оценка - наименьшая}
max:=a[1]; {также предполагаем для начала, что первая оценка - наибольшая}
sum:=0; {для начала сумма равна 0}
for i:=1 to n do {организуем цикл для перебора всех оценок}
    begin
      if max<a[i] then max:=a[i]; {если текущая оценка больше max, то запоминаем её в max}
      if min>a[i] then min:=a[i]; {если текущая оценка меньше min, то запоминаем её в min}
      sum:=sum+a[i]; {добавляем текущую оценку к сумме}
    end;
sum:=(sum-max-min)/(n-2); {здесь самое интересное: из суммы всех оценок вычитаем наибольшую и наименьшую, а полученный результат делим на 8 - количество оставшихся оценок. Получается среднее арифметическое}
writeln('Итоговая оценка ',sum:7:2) {выводим результат}
end.

4,5(78 оценок)

Открыть все ответы

Ответ:

Polinakovalevallll

05.01.2021

Побеждает 1 игрок сделав ход x,y+3, то есть переместив фишку на клетку 2,6.
У второго игрока три варианта:
2х,у - фишка на поле 4,6
х,у+3 - фишка на поле 2,9
х,у+4 - фишка на поле 2,10
Последний ход проигрывает сразу, потому что 1 игрок сделает ход х,у+4 и окажется на поле 2,14>14
На остальные два хода 1 игрок отвечает так, чтобы попасть на поле 4,9, то есть для 1 случая (4,6) это будет х,у+3 а для второго (2,9) - 2х,у
С поля 4,9 2 игрок не сможет победить, он может попасть на поля
8,9 или 4,12 или 4,13
Во всех случаях применяя, например, 3 вариант хода 1 игрок побеждает, попадая соответственно на поля 8,13 или 4,16 или 4,17
Отмечу, что другие варианты 1 хода для 1 игрока ведут к поражению, например: 2х,у - попадаем на поле 4,3, соперник отвечает х,у+4, приходит на поле 4,7 и каждый ход 1 игрока не приводит к цели и заканчивается поражением. Такая же картина и при первом ходе х,у+4 - попадаем на поле 2,7 второй игрок снова сводит всё к предыдущему варианту, переводя фишку на 4,7 ходом 2х,у

4,5(29 оценок)

Ответ:

AbdiashimN

05.01.2021

const n=5;
var a:array [1..n,1..n] of Integer;
i,max,ind,s,j:integer;
begin
s:=0;
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
j:=6;
for i:=1 to n do
begin
Dec(j);
if a[i,j]<0 then
s:=s+a[i,j];
end;
max:=a[1,2];
ind:=1;
for i:=1 to n do
if Abs(a[i,2])>Abs(max) then
begin
max:=a[i,2];
ind:=i;
end;
a[ind,2]:=s;
Writeln;
Writeln;
Writeln('a)Summ: ',s);
writeln('b)Max: ',max);
Writeln;
Writeln('c)');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.

Дана матрица а(5,5). 1. найти сумму s отрицательных элементов расположенных на побочной диагонали. 2