Дата: Понедельник, 10.12.2012, 23:02 | Сообщение # 62
( Let's rock! )
Сообщений: [246]
Помогите пожалуйста! =(
Дано N золотых слитков. Требуется распилить не более одного из них на две части (не обязательно равные, но с целой массой), после чего разделить слитки на две кучи равной массы. Входные данные В первой строке вводится одно натуральное число N, не превосходящее 100. Во второй строке через пробел вводятся N натуральных чисел, не превосходящих 100 – массы имеющихся слитков. Выходные данные Выведите массы слитков, которые вошли в первую кучку (включая массу части распиленного слитка). Если решений несколько, выведите любое из них. Если решений нет, выведите фразу NO SOLUTION (за-главными буквами). Выводить массы можно в произвольном порядке, но мас-са части распиленного слитка (если таковой имеется) должна быть последней.
Я тока часть написал, а остальное не могу додуматься =(
program project2; var n,i:byte; s:integer; gold:array[1..256] of byte; f1,f2:text; begin assign(f1,'input.txt'); assign(f2,'output.txt'); reset(f1); rewrite(f2); readln(f1,n); for i:=1 to n do read(f1,gold[i]); s:=0; for i:=1 to n do s:=s+gold[i]; if (s/2<>trunc(s/2)) then begin writeln(f2,'NO SOLUTION'); close(f1); close(f2); exit; end; s:=s/2; end.
мне час остался до сдачи задания =(
Добавлено (10.12.2012, 23:02) --------------------------------------------- щас разложил числа в массиве по порядку...
Сообщение отредактировал: SKORPION98 - Понедельник, 10.12.2012, 22:52
Парни мне одному интересно как мы все в жизни выглядим? А то по аватаркам вас знаю, а в лицо считай никого разве что Gründer и Filinshein авы с собой ставили, и то грундер(не знаю как правильно) фотошопил их явно
Добавлено (11.12.2012, 14:32) --------------------------------------------- Ребята, может быть лучше сделать тему, что-то вроде "Наши фото", и туда выкладывать любые свои фотки, а то во флудилке всё-ровно потеряются.
Такой ереси в школе и даже в училище у меня не было. 
Да и цвета подпорчены...
