Сделать программу на Иван Царевич попал в сад Кащея, где росли молодильные яблоки и ананасы бессмертия. У Ивана с собой была только одна волшебная сумка. Если сумку заполнять полностью яблоками, то в нее поместиться M кг яблок, а если только ананасами, то в нее поместиться N кг ананасов. Яблоки и ананасы можно загружать в сумку вместе в любой пропорции. Килограмм яблок стоит на базаре A рублей, килограмм ананасов – B рублей. Иван собирается лететь на рынок на ковре-самолете, который может унести не более D кг груза, не считая самого Ивана. Какую максимальную сумму (в рублях) может получить Иван Царевич за привезенные фрукты?
Формат ввода
Входные данные содержат на одной строке пять целых чисел через пробел: A, B, M, N, D. Все числа в диапазоне от 0 до 1000.
Формат вывода
Выведите одно число - максимальную сумму в рублях, которую может получить Иван за привезенные на базар фрукты, если продаст их полностью. ответ следует выводить с точностью не менее трех десятичных знаков после запятой
begin
var n:=ReadInteger('Число элементов массива=');
var a:=ArrRandom(n,-25,25);
Write('Исходный массив: '); a.Println;
var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
if k>0 then Writeln
('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
else Writeln
('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.
Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.