На фото поставлены цифры соответствия
Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
В первом мешке 2 в степени 6, так как первое взвешивание было по 32 монеты с каждой стороны, 5-ое взвешивание по 16 монет, и так далее пока на 6-ом взвешивании осталось всего по 1 монете с каждой стороны, и та которая весит не так как все - фальшивая, всего в первом мешке 64 монеты, во втором мешке всего 16
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.