Форум » Массивы, сортировка, работа с файлами » Задача 30, ЕГЭ 26 » Ответить
Задача 30, ЕГЭ 26
Vadim: Не получается второй ответ 17730 в задаче 30, егэ задание номер 26. Услование задачи: https://prnt.sc/viq86w Мой ответ - 98118
Ответов - 5
EugeneJobs: Здравствуйте. Решение можно ваше увидеть?
Vadim: Да, конечно, но только я делал через excel 1. Столбец B - Новые ямы. (кроме первой и последней) (https://prnt.sc/vj4xeo) 2. Нашёл наибольшие значение из них (25) (https://prnt.sc/vj4xv2) 3. Из 25 вычел каждой значение новых ям, их сумма = 98118 (https://prnt.sc/vj4y7x)
EugeneJobs: В чем смысл вычитания из большей ямы объема всех остальных? Посмотрите разбор задачи тут: https://www.youtube.com/watch?v=dqEglv3sTvo&t=7663s
sch12smirnova: [pre2] var N,S,C,k: integer; begin Assign(input, '26-J5.txt'); Read(N);S:=0; var data := ReadArrInteger(N); var a := ArrFill(N,0); a[0]:=data[0];a[N-1]:=data[N-1]; for var i:=1 to N-2 do begin C:=data[ i]; if data[ i]=Max(data[i-1],data[ i],data[i+1]) then C:=Max(data[i-1],data[i+1]) else if data[ i]<Min(data[i-1],data[i+1]) then C:=Min(data[i-1],data[i+1]); if C<data[ i] then S:=S+data[ i]-C; a[ i]:=C; end; C:=a.Min;k:=0; for var i:=0 to N-1 do begin if a[ i]=C then k:=k+1 end; Println(k,S); end.[/pre2]
Чаговец: [pre2] begin assign(input,'26-j5.txt'); var n:integer; var b:array of integer; var r:array of integer; read(n); r:=new integer[n]; b:=new integer [n]; for var i:=0 to n-1 do read(r[ i]); var val:=0;var a:=0; b[0]:=r[0]; b[^1]:=r[^1]; for var i:=1 to n-2 do begin a:=(r[i-1]+r[ i]+r[i+1])-Max(r[i-1],r[ i],r[i+1])-Min(r[i-1],r[ i],r[i+1]); if a<r[ i] then val+=r[ i]-a; b[ i]:=a; end; println(b.count(i->i=b.Min)); print(val); end.[/pre2]
полная версия страницы