У меня получилось m=-4, k=10
Просто подставляй значения и проверяй условие, если условие верно то m будет=значению Д под этим номером.
1)Берем Д(1)=6 проверяем 6 меньше 2*6 ДА
m присваиваем значение Д(1),т.е 6
2)Берем Д(2)=-1 Сравниваем -1 меньше 2*6 ДА
<span>m присваиваем значение Д(2),т.е -1 и Т,Д до конца</span>
Пусть массы корзин k1 k2, ягод - y1 y2
Тогда
k1+y1=a1
k2+y2=b1
k1+y1+y2=a2
k2=b2
k1=a3
k2+y1+y2=b3
Как видишь, математики - полные лохи, количество данных даже избыточно. Возьмем только
y1=a1-a3
y2=b1-b2
Теперь осталось сравнить 2 полученных числа.
Запись (record) — это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:
type
schools = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
students = record
name, surname : string;
age : byte;
school : schools;
end;
Для обращения к полям записи из главной программы необходимо разделять имя переменной типа Запись и поля, которое оно содержит, символом "." (точка). Например:
var
student : students;
begin
student.name := 'Иван';
student.surname := 'Пупкин';
end.
Если необходимо получить или изменить значения нескольких полей записи, то удобнее использовать конструкцию with:
begin
with student do begin
name := 'Вася';
surname := 'Пупкин';
age := 12;
school := 5;
end;
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21