М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
katya1172
katya1172
17.04.2021 07:54 •  Информатика

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

👇
Ответ:
vxtrxxx
vxtrxxx
17.04.2021
Const
  n=5;

type
  Mas=array[1..n] of integer;

var
  max,min:integer;
 
function Avg(a:Mas):real;
var
  i:integer;
  s:real;
begin
  max:=a[1]; min:=max; s:=max;
  for i:=2 to n do begin
    s:=s+a[i];
    if a[i]>max then max:=a[i]
    else
      if a[i]<min then min:=a[i]
  end;
  Avg:=(s-min-max)/3
end;

var
  m:Mas;
  i:integer;
  p:real;
begin
  for i:=1 to n do Read(m[i]);
  p:=Avg(m);
  Writeln(min,' ',max);
  Writeln(p:4:2)
end.

Тестовое решение:
8 9 7 5 8
5 9
7.67
4,6(58 оценок)
Ответ:
sumsckojr44
sumsckojr44
17.04.2021
Var
A:array of integer;
i:integer;

Function Free(A:array of integer):real;
Var i:integer;
Begin
For i:= 2 to 5 do
 if A[i]<A[A[0]] then A[0]:=i;
For i:= 1 to 4 do
 if A[i]>A[A[6]] then A[6]:=i;
WriteLn(A[A[0]],' ',A[A[6]]);
For i:= 1 to 5 do
 if (i<>A[0])and(i<>A[6]) then Free:=Free+A[i];
WriteLn((Free/3):0:2)
End;

Begin
SetLength(A,7);
For i:= 1 to 5 do
 Read(A[i]);
A[0]:=1;
A[6]:=5;
Free(A);
End.
4,5(11 оценок)
Открыть все ответы
Ответ:
NoProblem75
NoProblem75
17.04.2021

 

  uses   crt;   var   a: array [1..20, 1..20] of real;   i, j, k, n, s: integer;   begin   clrscr;   write('Введите размер матрицы: ');   read(n);   for i := 1 to n do     for j := 1 to n do     begin       write('A[', i, ',', j, ']= ');       readln(a[i, j]);     end;   WRITELN;   WRITELN;   writeln('Исходная матрица ', n, 'x', n, ': ');   for i := 1 to n do   begin     for j := 1 to n do       WRITE(a[i, j]:2:0, ' ');     WRITELN;   end;   k := 0;   for i := 1 to n do   begin     for j := 1 to n do     begin       if a[i, j] = 0 then       begin         k := k + 1;         s := s + 1;       end;     end;     if k = n then writeln(i, ' строка состоит из нулей! ');     k := 0;   end;   if s = 0 then writeln('В матрице нет нулевых строк'); end.
4,8(64 оценок)
Ответ:
roker62
roker62
17.04.2021

1) 2*6^0 + 0*6^1 + 1*6^2 + 5*6^3

2) 3 единицы

3) 24D

4) 6

5) 2 раза

Объяснение:

2) 37_{10} = 100101_{2}

3) Переводим число 589_{10} в 16-ичную систему счисления, для этого делим его на 16 и запоминаем остаток. Затем результат деления также делим на 16 и запоминаем остаток. Повторяем эти действия до тех пор, пока частное не будет равно 0:

589 : 16 = 36, остаток 13

36 : 16 = 2, остаток 4

2 : 16 = 0, остаток 2

Затем записываем остатки от деления в обратном порядке: 2 4 13

Заменяем числа больше 9 на буквы

(10 - A; 11 - B; 12 - C; 13 - D; 14 - E; 15 - F)

Результат: 24D_{16}

4)

234_{x} = 94_{10}\\4 * x^0 + 3 * x^1 + 2 * x^2 = 94\\4 + 3x + 2x^2 = 94\\2x^2 + 3x - 90 = 0\\x = 6

5) Посчитаем от 1 до 10 в  6-ичной системе счисления:

1 2 3 4 5 10 11 12 13 14

4,5(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ