HD
Решить задачу
В сети магазинов "Н-Аудио" проводится рекламная акция,
Каждый второй товар - бесплатно. Естественно, кассирам
дано указание пробивать товары в таком порядке, чтобы
магазин потерял как можно меньше денег.
По списку товаров определите максимальную сумму в чете.
Вход: натуральное число товаров (N = 1 от и
далее N натуральных чисел - цены товаров.
Выход: число и максимальная сумма чека
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив A[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
for var i:=0 to m-1 do a[i,2]:=-7;
Writeln(4*a.ColCount*'-');
a.Println(4)
end.
Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив A[6,9] ***
-14 34 -25 27 -48 -15 50 26 -16
8 -15 -49 -50 -44 -44 47 32 35
-32 13 19 -16 -25 41 10 39 49
-11 -35 -39 -16 26 -19 47 -11 14
-22 42 -5 -39 28 -42 9 -41 18
0 -22 -25 -15 -11 7 31 38 33
-14 34 -7 27 -48 -15 50 26 -16
8 -15 -7 -50 -44 -44 47 32 35
-32 13 -7 -16 -25 41 10 39 49
-11 -35 -7 -16 26 -19 47 -11 14
-22 42 -7 -39 28 -42 9 -41 18
0 -22 -7 -15 -11 7 31 38 33
б) Еще проще, тут уже цикл задан от 1 до 20, то бишь 20 значений для массива(20 цифр), а a[i] := i это значит, то что, массиву будут присвоены числа по порядку от 1 до 20, потому что массив = i
в) Тут цикл задан от 1 до 5, и массив каждый раз будет выполнять действие, заданное по условию, то бишь умножить и вычесть, i - каждый раз будет увеличиваться на 1, и получиться, что (2*1-1) (2*2-1), и так число будет увеличиваться до 5.