double arrow

Упрощенная (время 0,122, память 1164 Кб)



var s,t,p:string;

f:text;

i:integer;

begin

assign(f,'input.txt');

s:='';

reset(f);

read(f,t);

t:=t+' ';

for i:=1 to 3 do

begin p:=copy(t,1,pos(' ',t));

delete(t,1,length(p));

if length(p)>length(s) then s:=p;

if (length(p)=length(s))and(p>=s) then s:=p end;

close(f);

assign(f,'output.txt');

rewrite(f);

write(f,s);

close(f)

end.

 

Сортировка и поиск

 

Домашнее задание.

Петя успевает по математике лучше всех в классе, поэтому учитель задал ему сложное домашнее задание, в котором нужно в заданном наборе целых чисел найти сумму всех положительных элементов, затем найти где в заданной последовательности находятся максимальный и минимальный элемент и вычислить произведение чисел, расположенных между ними. Так же известно, что минимальный и максимальный элемент встречаются в заданном множестве чисел только один раз. Поскольку задач такого рода учитель дал Пете около ста, то Петя как сильный программист смог написать программу, которая по заданному набору чисел самостоятельно находит решение. А Вам слабо?

Входные данные

В первой строке входного файла INPUT.TXT записано единственное число N – количество элементов массива. Вторая строка содержит N целых чисел, представляющих заданный массив. Все элементы массива разделены пробелом. Каждое из чисел во входном файле не превышает 102 по абсолютной величине.




Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести два числа, разделенных пробелом: сумму положительных элементов и произведение чисел, расположенных между минимальным и максимальным элементами. Значения суммы и произведения не превышают по модулю 3*104.
Примеры:

INPUT.TXT OUTPUT.TXT
6 -3 5 7 9 0 5 26 35
8 1 2 3 4 5 6 7 8 36 5040
5 8 7 5 -3 2 22 35

РЕШЕНИЕ

Данная задача решается с помощью классических алгоритмов обработки данных в массиве. Во первых, стоит вычислить сумму всех положительных элементов, которые находятся в массиве. Для этого пройдемся по всем значениям и к значениям суммы будем прибавлять только те элементы, которые больше «0» (то есть, положительные).

Sum:=0;
for i:=1 to n do
if a[i]>0 then Sum:=Sum+a[i];

Далее, согласно условия, нам необходимо найти индексы наибольшего и наименьшего значения элементов в массиве. Введем две переменные minId, MaxId, которые соответственно содержат значения номеров маленького и самого элементов линейной таблицы. Если среди просмотренных элементов мы найдем большее значение, чем то значение, которое мы считали начальным - мы изменим номер индекса максимального элемента



 

if a[i]>a[MaxId] then MaxId:=i;

Аналогично с минимальным:

if a[i]<a[MinId] then MinId:=i;

Зная позицию нахождения наибольшего и наименьшего элементов, мы можем найти произведение чисел, расположенных между ними:

Mult:=1;
for i:=MinId+1 to MaxId-1 do
Mult:=Mult*a[i];

Но необходимо предусмотреть также и такой вариант, когда минимальный элемент находится правее максимального, ведь тогда цикл for i:=MinId+1 to MaxId-1 do не выполнится ни разу. Поэтому перед этим, при необходимости необходимо заменить сменные minId и MaxId так, чтобы у minId находилось меньшее число, чем в MaxId.if MaxId<MinId then
begin
x:=MaxId;
MaxId:=MinId;
MinId:=x;
end;

Полный текст программы «Домашнее задание»:

var f,f1:text;
n,i,minId,MaxId,x,Sum,Mult:Integer;
a:array[1..100] of Integer;
begin
assign(f,’input.txt’);
reset(f);
assign(f1,’output.txt’);
rewrite(f1);

{Считывание данных}

readln(f,n);
for i:=1 to n do
read(f,a[i]);

{ Нахождение суммы положительных элементов массива}

Sum:=0;
for i:=1 to n do
if a[i]>0 then Sum:=Sum+a[i];

{ Поиск значений индексов расположения максимального элемента и минимального}

minId:=1;

{ Считаем, что минимальный элемент находится на первой позиции}

MaxId:=1;

{ Считаем, что максимальный элемент находится на первой позиции}

for i:=2 to n do
begin
if a[i]>a[MaxId] then MaxId:=i;

{ Если мы нашли больше элемент чем считали максимальным, меняем индекс максимального}

if a[i]<a[MinId] then MinId:=i;


{Если мы нашли меньше элемент чем считали минимальным, меняем индекс минимального}

end;


{Изменение индексов расположения крупнейшего элемента и наименьшего}

if MaxId<MinId then
begin
x:=MaxId;
MaxId:=MinId;
MinId:=x;
end;


{Нахождение произведения между минимальным и максимальным значением элементов массива}

Mult:=1;
for i:=MinId+1 to MaxId-1 do
Mult:=Mult*a[i];

{Вывод результата}

writeln(f1,Sum,’ ‘,Mult);
close(f);
close(f1);
end.

Метод перебора вариантов, отсечения перебора

3. Сумма двух чисел

Заданы три числа: a, b, c. Необходимо выяснить, можно ли так переставить цифры в числах a и b, чтобы в сумме получилось c.

Формат входных данных

Входной файл содержит три целых числа: a, b, c (0 < a, b, c < 109). Числа разделены пробелом.

Формат выходных данных

Если искомая перестановка цифр возможна, необходимо вывести в выходной файл слово YES, в противном случае — выведите слово NO. При положительном ответе необходимо вывести во второй строке выходного файла число x, получаемое перестановкой цифр числа a, и число y, получаемое перестановкой цифр числа b, сумма которых равна c. Числа x и y не должны содержать ведущих нулей. Числа в строке разделены пробелом.

Примеры входных и выходных файлов

Input2.txt output2.txt
12 31 25 YES 12 13
12 31 26 NO

 



Сейчас читают про: