Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
У меня так получилось
a:=9
b:=3
c:=1
1. a=b - нет
2. c:=1+(a-b)
a:=a-1
b:=b+1
c:=7
a:=8
b:=4
3.a=b - нет
4.c:=4
a:=7
b:=5
5.a=b - нет
6.c:=3
a:=6
b:=6
7.a=b - да
И выведет конечный результат
a:=6
b:=6
c:=3
В памяти компьютера (ОЗУ), если идет речь о десктопных приложениях.
В веб-программах:
PHP -- на сервере.
JS -- ОЗУ