Определите вес рюкзака и входные данные программа получает на вход три целых положительных числа. первое число r - максимально разрешенный вес рюкзака. второе число к - количество предметов. число r не превосходят 1, число к не превосходит 100,
выходные данные выходные данные должны содержать два числа - вес рюкзака и вес чемодана (вес
пустого рюкзака и чемодана не учитываются).
s :array [1..100,1..100] of integer;
begin
b:=63999;
c:=-63999;
for i:=1 to 15 do
begin
writeln;
for j:=1 to 15 do
begin
s[i,j]:=random(127998)-63999;
a:=a+s[i,j];
if s[i,j]>c then c:=s[i,j];
if s[i,j]<b then b:=s[i,j];
write (s[i,j],' ');
end;
end;
writeln;
writeln ('Сумма элементов = ', a);
writeln ('Максимальный элемент = ', c);
writeln ('Минимальный элемент = ', b);
end.