Const
n=5;
var
m:array[1..n] of byte;
function Itog():real;
var
i,max,min,s:byte;
begin
s:=m[1]; max:=s; min:=s;
for i:=2 to n do begin
s:=s+m[i];
if max<m[i] then max:=m[i]
else
if min>m[i] then min:=m[i]
end;
s:=s-max-min;
Itog:=s/(n-2)
end;
var
i:byte;
begin
Writeln('Введите экспертные оценки');
for i:=1 to n do Read(m[i]);
Writeln('Итоговый балл равен ',Itog:4:2)
end.
<em><u>Тестовое решение:</u></em>
Введите экспертные оценки
4 4 5 3 5
Итоговый балл равен 4.33
Var
a: array[1..20] of integer;
i,x: integer;
Begin
x := 1;
write('Введите 20 чисел для заполнения массива: ');
for i := 1 to 20 do begin
readln(a[i]);
end;
for i := 1 to 20 do begin
if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then
x := x * a[i];
end;
writeln('Произведение чисел нечетных и кратных 3 = ', x);
End.
ОООчень сложноСам хотел спросить.
Противоположные понятия "белая краска-чёрная краска"
<span>противоречащие</span> понятия "высокий дом- невысокий дом"