Вінтернет-магазині до акції "святого миколая" відбувається акція - "купуючи два будь-які товари, третій отримає безкоштовно" ", а внизу дрібним шрифтом приписано" "трьох обраних вами товарів, які ви платите дві найдорожчі ". переглянувши повний перелік товарів, які будуть пропонуватися в інтернет-магазині, та їх вартість, петрик вирішив, які товари він хоче придбати. відповідно, йому потрібно визначити, яку мінімальну суму грошей він може витратити на таку покупку. формат вхідного файлу вхідний файл спочатку вказує число n (1sns1000), а потім n значення товарів, вибраних петриком. усі значення - натуральні числа, що не перевищують 1. формат виводу виведіть одну єдину мінімальну суму грошей, необхідну для того, щоб петрік міг придбати вибрані елементи.
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
a[i]:=i+1;
if max<a[i] then max:=a[i];
writeln(a[i]);
end;
writeln('Максимальный элемент равен: ',max);
end.
Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
a : array [1..30] of Integer;
begin
for i := 1 to 30 do
begin
Write('a[', i, ']=');
ReadLn (a[i]);
if max<a[i] then max:=a[i];
end;
writeln('Максимальный элемент равен: ',max);
end.
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.