uses crt;
var
a:array [1..1000,1..1000] of integer;
i,j,max,min,k:integer;
begin
clrscr; randomize;
write ('Введи количество столбцов/строк матрицы: ');read(k);
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(100)-50;
write (a[i,j]:4);
end;
writeln;
end;
max:=1; min:=1;
for i:=2 to k do
if a[i,i]>max then max:=a[i,i]
else
if a[i,i]<min then min:=a[i,i];
writeln('Наибольшее значение главной диагонали: ',max);
write('Наименьшее значение главной диагонали: ',min);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Курьер ограничение времени 1 секунда ограничение памяти 256mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt курьеру васе поручили доставить n посылок. вася начинает работать в первый день и каждый день может доставить ровно одну посылку. про каждую посылку известен последний день, когда ее можно доставить di, и штраф wi, который придется заплатить, если посылка не будет доставлена в срок. васе решить, в каком порядке доставлять посылки, чтобы суммарный штраф был как можно меньше. например, если есть 3 посылки, первую необходимо доставить в первый день и штраф за опоздание 2, вторую также необходимо доставку в первый день и штраф за опоздание 3, а третью необходимо доставить не позже третьего дня и штраф за опоздание 1, то оптимально доставить сначала вторую, потом третью, а затем первую посылку. в этом случае не в срок доставлена только первая посылка и штраф составляет 2. доставить одновременно первую и вторую посылку в срок невозможно. формат ввода в первой строке дано единственное натуральное число n (1 ≤ n ≤ 200 000) — количество посылок. затем следует n строк, в каждой из которых содержится по два числа di и wi (1 ≤ di ≤ 200 000, 1 ≤ wi ≤ 200 000) — последний день, когда можно доставить посылку без штрафа и стоимость опоздания для i-й посылки. формат вывода в первой строке выведите единственное число, равное минимально возможному суммарному штрафу. во второй строке через пробел выведите n чисел, где i-е число — день, в который необходимо доставить i-ю посылку. если возможно несколько оптимальных расписаний, выведите любое из них.
ответ: надо доставит 6 посылок
объяснение: